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

Question

Ирина · Accepted Answer

Если между словами есть несколько пробелов 
var 
 i: integer; 
 st: string; 
begin 
 readln(st); 
 i := 1; 
 while st[1] = ' ' do delete(st, 1, 1); 
 while i <= length(st) do 
 begin 
 if st[ i ] = ' ' then 
 while (st[ i + 1 ] = ' ') and (length(st) >= i) do 
 delete(st, i, 1); 
 inc(i); 
 end; 
 write(st); 
end. 
 
Если чётко знаем, что только два пробела то так: 
var 
 i: integer; 
 s: string; 
begin 
 readln(st); 
 i := 1; 
 while(i<=length(st)) do begin 
 if (s[ i ] = ' ') then delete(st,i+1,1); 
 inc(i); 
 end; 
 writeln(St); 
end.

Алла Гордиенко · Answer

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

Екатерина Балашова · Answer

начинаться она будет с какого-нибудь Var, далее где-нибудь Begin, а в конце - End

Александр Прудников · Answer

program stroki; 
uses crt; 
var 
st:string; 
i:integer; 
begin 
readln(st); 
i:=1; 
while i

Елена · Answer

Искать ДВА пробела, заменять на ОДИН. Какие проблемы?