Проверьте, можно ли из букв, входящих в текст А, составить текст Б

uses crt;
var
a,b,a1,b1:string;
i,j:byte;
begin
clrscr;
readln(a);
readln(b);
if length(b) > length(a) then
for I:=1 to length (a) do
for j:=1 to 255 do
if a[i] = b[j] then
 begin
 delete(a,1,i);
 delete(b,1,j);
 end
 
else
else
for i:=1 to length(b) do
for j:=1 to 255 do
if a[i] = b[j] then
 begin
 delete(a,1,i);
  delete(b,1,j);
 end;
 
for i:=1 to 255 do
if a[i]<>' ' then
begin
 writeln('nel''zua');
 j:=i;
 break
end
 
else
if b[i]<>' ' then
begin
 writeln('nel''zua');
 j:=i;
 break
end
else
writeln('mozhno');
writeln(a,'!');
writeln(b,'!');
write(j);
readkey;
end.

var
 mn1, mn2: set of char;
 st1, st2: string;
 i, j: integer;
begin
 mn1:=[]; mn2:=[];
 writeln('Введите текст 1: ');
 readln(st1);
 writeln('Введите текст 2: ');
 readln(st2);
  for i:=1 to length(st1) do
   include(mn1, st1[i]);
  for j:=1 to length(st2) do
   include(mn2, st2[j]);
 writeln('Буквы первого текста: ');
 writeln(mn1);
 writeln('Буквы второго текста: ');
 writeln(mn2);
  if mn2 <= mn1 then write('Можно!')
   else write('Нельзя!');
end.