Помогите решить. Паскаль. Работа со строками. Удалить лишние пробелы.

[Комильфо]

Помогите, пожалуйста

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

Пыталась решить несколькими способами, но программа либо выдает изначально введенную строку, либо зависает.
Вот один из вариантов решения, подскажите что не так??

Program probe1i;
var
a:string;
i,j:integer;
begin
writeln('Bведитe пpeдложениe');
readln(a);
x:=chr(32);
while i<255 do begin
if a[i]=x then
if a[i+1]=x then
delete(a,i+1,1);
end;
writeln(a);
end.

Заранее благодарю

[_Dmitry]

Попробуй так

Program probe1i;
var
  a:string;
  i,j:integer;
  x: char;
begin
  writeln('Bведитe пpeдложениe');
  readln(a);
  x:=chr(32);
  i:=1;
  while i < length(a) do
    begin
      if a[i]=x then
        while a[i+1]=x do
          delete(a,i+1,1);
      i:=i+1;
    end;
  writeln(a);
end.

код не оптимален, но работает

[Карась]

Уж извините но я привык к консольному приложению делфи...... Поэтому пишу пока только в нём...

program Project1;

{$APPTYPE CONSOLE}
var mes, mesK: string;
    per, vto: char;
    i: integer;

begin
Write ('Введите предложение :'); Readln (mes);

    for i := 1 to length(mes) do
     begin
       per := mes[i];
       vto := mes[i+1];
          if (per = ' ') and (vto = ' ') then
           mesK := ''
          Else
           mesK := per + vto;
    Write (mesk);
    End;
Readln;
end.

Гы.... косяки есть... но это так.. код к размышлению.

[Комильфо]

Спасибо за помощь!! Сама не додумалась, а все просто...