Помогите пожалуйста. Паскаль

[LLIypLLIyH]

Помогите програмку сделать


Строка Т состоит из слов, разделенных пробелами. Оставить только один пробел между словами, удалив лишние.

Заранее, Примного блогадарен

[puporev]

uses crt;
var a:string;i,j:integer;
begin
clrscr;
writeln('Ischodnaia stroka:');readln(a);
for i:=length(a)downto 1 do
while pos('__ ',a)>0  do  delete(a,pos('_ ',a),1);//__ два пробела; _ один пробел
writeln('Rezultat:');
writeln(a);
readln;
end.

[gred]

for i:=1 to n do
if (str[i]=' ') and (str[i+1]=' ') then
delete(str,i+1,i+1);

[puporev]

To gred
Извините, но ваш код неправильный. Наберите текст из 4х слов через три пробела и посмотрите, что получится.

[LLIypLLIyH]

Сообщение от puporev

uses crt;
var a:string;i,j:integer;
begin
clrscr;
writeln('Ischodnaia stroka:');readln(a);
for i:=length(a)downto 1 do
while pos('__ ',a)>0  do  delete(a,pos('_ ',a),1);//__ два пробела; _ один пробел
writeln('Rezultat:');
writeln(a);
readln;
end.

он оставляет 1 пробел вообще перед последним словом

[puporev]

По моему Вы или пять строчек переписать не можете или что-то не то вводите. Программа во вложении.

[LLIypLLIyH]

Сообщение от puporev

По моему Вы или пять строчек переписать не можете или что-то не то вводите. Программа во вложении.

Во) спасибо. как репутацию повышать?

[puporev]

Внизу под аватаром серенькое пятнышко нажми, там увидишь.