Переписать программу с использованием процедур

uses crt;
var s1, s2 : string;
         i : byte;
         f : boolean;
Begin
 writeln('Введите первое предложение:');
  readln(s1);
 writeln('Введите второе предожение:');
  readln(s2);
 
  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 f:=false
  else
    Begin
     f:=true;
     i:=1;
      while(i<=length(s1)) and(f) do
      if s1[i]<>s2[i] then f:=false else i:=i+1;
      end;
  if f then write('Предложения совпадают')
  else write('Предложения не совпадают');
  end.

uses
 crt;
var
 s1, s2 : string;
 
procedure sovp(Var s1,s2:string);
var
i : byte;
f : boolean;
begin
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 f:=false
else
Begin
 f:=true;
 i:=1;
while(i<=length(s1)) and (f) do
 if s1[i]<>s2[i] then
  f:=false
   else
    i:=i+1;
end;
if f then
 write('Предложения совпадают')
else
 write('Предложения не совпадают');
end;
 
Begin
writeln('Введите первое предложение:');
readln(s1);
writeln('Введите второе предожение:');
readln(s2);
sovp(s1,s2);
readkey
end.