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

Формулировка задачи:

Здравствуйте, есть программа, как написать её с помощью процедур?

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.

Объяснение кода листинга программы

Ввод предложений с помощью функции readln.
Использование процедуры sovp для сравнения предложений.
Внутри процедуры sovp, удаление пробелов из предложений с помощью функции delete.
Проверка длины предложений и присвоение значения переменной f.
Если длина предложений одинакова, то переменная f принимает значение true.
Используя цикл while, происходит сравнение символов предложений.
Если символы не совпадают, то переменная f принимает значение false.
Если все символы совпадают, то выводится сообщение Предложения совпадают.
Если предложения не совпадают, то выводится сообщение Предложения не совпадают.