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

uses crt;
var
   st1,st2:string;
      
procedure delspace(var st:string);
var
  i:integer;
begin
for i:=length(st) downto 1 do
if st[i]=' ' then delete (st,i,1);
end;
   
begin
clrscr;
write('st1: ');readln(st1);
write('st2: ');readln(st2);
delspace(st1);
delspace(st2);
if st1=st2 then write('sovpadaut')
else write('ne sovpadaut');
readkey;
end.