Листинг программы

program z7;

{Опред можно ли из символов входящих в строку а,сост строку с}

uses crt;

var la,lc,i,j:longint;a,c:string;label m;

 begin

  clrscr;

   write('введите строку a: ');readln(a);

   write('введите строку c: ');readln(c);

   la:=length(a);lc:=length(c);

   if la<lc then begin     writeln('ОШИБКА!!!');

   write('строка а > строки c');readln;halt;end;

 m:for i:=1 to la do

    for j:=1 to lc do

     if a[i]=c[j] then begin

                        delete(a,i,1);la:=la-1;

                        delete(c,j,1);lc:=lc-1;goto m;

                       end;

     if c='' then write('можно')

             else write('нельзя');readln;

 end.