Дан текст, состоящий из слов, разделенных произвольным числом пробелов. Удалить из текста лишние пробелы, оставив по одному между словами

PROGRAM Prim3; 
Var
T1,T:string; 
i:byte; 
BEGIN
Writeln ('введите текст');
Readln (T);
if T[length(T)]<>' ' then T:=T+' ';
i:=1; T1:=' ';
while i<=length(T) do
begin
While Pos (' ', T) <> 0 do 
Begin
i:= Pos (' ' , T);
Delete (T, i, 1);
End;
Writeln (T);
END;end.

var s:string; n,i:integer;
begin
writeln ('введите текст с пробелами '); readln(s);
repeat
inc(i);
n:=length(s);
if (s[i]=' ') and ((s[i+1]=' ')) then  begin
delete (s,i,1);dec(i);end;
until i=n;
writeln ('удалены лишние пробелы ');writeln(s);
end

// Преобразования строк. Обработка строк с применением циклов
// Дан текст, состоящий из слов, разделенных произвольным числом пробелов. 
// Удалить из текста лишние пробелы, оставив по одному между словами.
// PascalABC.NET
var
  s: string;
  n: integer;
begin
  write('Введите текст ');
  readln(s);
  s:= trim(s);
  n:= pos('  ',s);
  while n<>0 do
    begin
      delete(s,n,1);
      n:= pos('  ',s);
    end;
  writeln('После удаления ', s, ' длина ', length(s));
end.

while pos('  ',s)>0 do 
delete(s,pos('  ',s),1);