Если после знака препинания более одного пробела, то лишние пробелы удалить

unit stroka;
interface
const rz=['.',',','?','!',';',':'];
function UdPrd(s:string):string;
function UdPsl(s:string):string;
function Dob(s:string):string;
implementation
function UdPrd(s:string):string;
var i:byte;
begin
i:=2;
while i<=length(s) do
if(s[i] in rz)and(s[i-1]=' ') then
while s[i-1]=' ' do
 begin
  delete(s,i-1,1);
  i:=i-1;
 end
else i:=i+1;
UdPrd:=s;
end;
function UdPsl(s:string):string;
var i:byte;
begin
i:=2;
while i<length(s) do
if (s[i]=' ')and(s[i-1] in rz)and(s[i+1]=' ') then
while s[i+1]=' ' do
delete(s,i+1,1)
else i:=i+1;
UdPsl:=s;
end;
function Dob(s:string):string;
var i:byte;
begin
for i:=length(s)-1 downto 1 do
if(s[i] in rz)and (s[i+1]<>' ') then
insert(' ',s,i+1);
Dob:=s;
end;
end.

uses crt,stroka;
var s:string;
begin
clrscr;
writeln('Введите предложение с лишними пробелами перед знаками препинания:');
readln(s);
s:=UdPrd(s);
writeln(s);
writeln('Введите предложение без пробелов после знаков препинания:');
readln(s);
s:=Dob(s);
writeln(s);
writeln('Введите предложение с лишними пробелами после знаков препинания:');
readln(s);
s:=UdPsl(s);
writeln(s);
readln
end.