Заданы две строки. Выяснить можно ли построить вторую из букв первой. Проверку оформить в виде логической функции — Pascal(Паскаль)

uses crt;
function Sovp(x,y:string):boolean;
var i:byte;
begin
if length(x)<>length(y)then{если длина разная}
 begin
  Sovp:=false;{нет}
  exit;
 end;
for i:=1 to length(x) do{смотрим первую строку}
if pos(x[i],y)>0 then{если символ есть во второй}
delete(y,pos(x[i],y),1);{удаляем его там}
if y='' then Sovp:=true else Sovp:=false;{если все удалили, можно, иначе нет}
end;
var s1,s2:string;
begin
clrscr;
write('S1: ');readln(s1);
write('S2: ');readln(s2);
if Sovp(s1,s2) then write('Можно!')
else write('Нельзя!');
readln
end.