Строки заменить процедуру

unit op;
interface
  type str= string;
implementation
end.

unit crt;
 
interface
uses op;
    procedure InputStr(var s: str);
    procedure OutputStr(const s: str);
    procedure Replace(var doest: str; const str1; const str2: str);
 
implementation
procedure InputStr(var s: str);
begin
        Readln(s);
end;
 
 
procedure OutputStr(const s: str);
begin
        Writeln(s);
end;
 
 
procedure Replace(var doest: str; const str1; const str2: str);
 
 
var
    n,i,j:integer;
    c:char;
begin
clrscr;
writeln('Введите текст, содержащий пробелы, окончание ввода точка');
n:=0;
repeat
c:=readkey;
write(c);
n:=n+1;
s[n]:=c;
if c='.' then writeln;
until c='.';
i:=1;
while i<n do
if(s[i]=' ')and((i=1)or(s[i+1]=' '))then
 begin
  for j:=i to n-1 do
  s[j]:=s[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Текст без лишних пробелов:');
for i:=1 to n do
write(s[i]);
readln
end.

program main;
 
uses op, crt;
var
        s: str;
begin
        OutputStr('Введите текст');
        InputStr(s);
        Replace(s, '  ', ' ');
        OutputStr(s);
        Readln;
end.

procedure Replace(var s: str; const str1; const str2: str);
 
var
    n:integer;
begin
clrscr;
writeln('Введите текст, содержащий пробелы, окончание ввода точка');
n:=0;
while pos('_ _',s)>0 do delete(s,pos('_ _',s),1); //('_ _')
        delete(s, n, Length(str1));
        Insert(str2, s, n);
        n:= Pos(str1, s);
     end;
end.

procedure DelSpase(var s: str);
begin
clrscr;
writeln('Введите текст, содержащий пробелы, окончание ввода точка');
n:=0;
while pos('  ',s)>0 do delete(s,pos('  ',s),1); //('_ _')-это просто были так обозначены пробелы, 
                                                           //а  нужно по 2 пробела в апострофах
        delete(s,pos('  ',s),1));//удаляем лишние пробелы
if s[1]=' ' then delete(s,1,1);//если первый пробел
if s[length(s)]=' ' then delete(s,length(s),1);//если последний 
end;

procedure DelSpase(var s: str);
begin
while pos('  ',s)>0 do delete(s,pos('  ',s),1); //('_ _')-это просто были так обозначены пробелы, 
                                                           //а  нужно по 2 пробела в апострофах
        delete(s,pos('  ',s),1));//удаляем лишние пробелы
if s[1]=' ' then delete(s,1,1);//если первый пробел
if s[length(s)]=' ' then delete(s,length(s),1);//если последний 
end;
var s:str;
begin
clrscr;
writeln('Введите текст, содержащий пробелы, окончание ввода точка');
readln(s);
DelSpese(s);
write(s);
readln
end.