несколько пробелов заменить одним пробелом

[Андрю)(@]

Плиз... Помогите доделать прогу на Паскале
Дана последовательность символов S1, ... , S25, среди которых есть пробелы. Заменить каждую группу пробелов одним пробелом.
Смысл такой что выводится строка , содержащая 25 символов, между этими символами встречаются пробелы, если в каком-то месте пробелов встречается больше одного эта группа пробелов должна замениться одним пробелом.

var f:boolean;
s,t:string;
i:integer;
begin
f:=false;
t:='';
for i:=1 to 25 do
if(s[i]=' ')then
begin
if f=false then
begin
t:=t+' ';
f:=true;
end;
end
else
begin
t:=t+s[i];
f:=false;
end;
end.

Символы должны вводится с клавиатуры
надо сделать, чтобы было имеенно 25 символов не более и не менее, т.е. после того как будет введено 25 символов появлялась новая исправленная строка

[|{ot]

программа у Вас рабочая, только добавте ввод строки s(в начале) и вивод t(в конце программы),а что бы в строке s местилось только 25 символов замените s,t:string; на s,t:string[25]; (в кавычках принудительно указывается максимальный размер строки, по умолчанию он равен 255)

[Андрю)(@]

var f:boolean;
s,t:string[25];
i:integer;
begin
f:=false;
t:='';
for i:=1 to 25 do
read(s[i]);
if(s[i])='' then
begin
if f=false then
begin
t:=t+' ';
f:=true;
end;
end
else
begin
t:=t+s[i];
f:=false;
write(t);
end;
end.
Так тоже ограничение не работает, и что-то ничего путного не выводит..
Может быть можно её как-то переделать

[puporev]

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

[GaJIbI4]

У меня такая же задачка была мне вот такое решение предложили:

var
  st: string;
begin
  write('stroka = ');
  readln(st);
  while pos('  ', st) > 0 do delete(st, pos('  ', st), 1);
  write('otvet = ', st);
  readln
end.