тексты в паскаль

[Лида200915]

подскажите, что надо мне вставить вместо точек в скобке...а задача такая:
Убрать лишние пробелы. Текст ввести с клавиатуры.
program g;
var s,n:string;
i:integer ;
k:char;
begin
writeln ('введите строку');
readln (s);
k:=' ';
for i:=1 to length(s) do
if (s[i]=k) and (s[i+1]=k) then
Delete (s,i+1,...);
writeln (s);
end.

[U-S]

delete(S, i+1, 1)

тоесть удалить один символ

[U-S]

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

[Лида200915]

u-s: а если вы введете три пробела, то он удалит 1 и останется два. неправильный вывод. между словами должен быть один пробел. а насчет в начале строки-неважно

[Лида200915]

так как решить, мне кто-нибудь скажет?

[U-S]

program g;
var s,n:string;
i:integer ;
k:char;
begin
writeln ('введите строку');
readln (s);
k:=' ';

i:=1;
repeat
if (s[i]=k) and (s[i+1]=k) then
begin
Delete (s,i,1);
i:=i-1;
end;
i:=i+1;
until i = length(s);
writeln (s);
end.

[Лида200915]

спасибо))))