Функция

[Alexsey1991]

Составить функцию совпадает,которая сравнивает две строки, игнорируя пробелы.

uses crt;
function sovpadaet(s1,s2:string):boolean;
var
 s3:string;
 i,k:integer;found:boolean;
begin
 i:=1;
 repeat
   k:=pos(' ',s1);
   s3:=copy(s1,i,k-1);
   i:=k+1;
   if pos(s3,s2)=0 then
   begin
     sovpadaet:=false;
     exit;
   end
   else
   sovpadaet:=true;
 until length(s1)<i
end;
var
a,s:string;
begin
readln(a);
readln(s);
if sovpadaet(a,s)=true then
writeln('sovpadaet')
else
writeln('ne sovpadaet');
end.

Вот чё я мог написать посмотрите в чем ошибка а то цикл бесконечный!И ваще правильно написал код???

[Google2010]

function sovp(s1,s2:string):boolean;
var
 i:integer;
begin
sovp:=true;
while pos(' ',s1)<>0 do
delete(s1,pos(' ',s1),1);

while pos(' ',s2)<>0 do
delete(s2,pos(' ',s2),1);

 if length(s1)<>length(s2) then
 begin
 sovp:=false;
 exit;
 end;
 for i := 1 to Length(s1)  do
 if s1[i]<>s2[i] then  begin
  sovp:=false;
  break;
  end;
  end;

[Alexsey1991]

код нормальный но если слова одинаковые но стоят в разных расположениях , то там ни как не ришится!!