В заданном тексте удалить все лишние пробелы, т.е. из нескольких идущих подряд пробелов оставить только один — Pascal(Паскаль)

Program PascalGuru;

label 1;

var
  i: integer;
  s: string;

begin
  write('Vvedite stroku:');
  readln(s);
  writeln('Ishodnaya stroka: ', s);

  i := 1;
  repeat
    if copy(s, i, 2) = '  ' then
      delete(s, i, 1)
    else
      inc(i);
  until i > length(s);

  writeln;
  writeln('Preobrazovannaya stroka: ', s);

  readln;

end.