задача на стринг

[Casper098]

дан текст.конец ввода F1.заменить все "." на "!" и найти их количество.

program prim;
uses crt;
var st:string;ch:char;
begin
clrscr;
ch:=readkey;st:=' ';
while ch<>#59 do
begin
st:=st+ch;
ch:=readkey
end;
while pos('.',st)<>0 do st[pos('.',st)]:='!';
end.

ребят подскажите,что не правильно? и как найти их количество?


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
перед использованием тега не забудьте выделить код программы.
ну или вставляйте код программы МЕЖДУ тегами [CODE] и /СODE

Не забывайте об этом!
Модератор.

[Son Of Pain]

Чтобы найти их количество, просто добавь счетчик во второй цикл, и увеличивай его на единицу там )

А неправильно то, что ты не проверяешь при вводе на значение #0, которое будет в буфере перед кодом f1. Потому у тебя оно добавится в строку, а программа будет останавливаться еще и при вводе точки с запятой.

[Casper098]

program prim;
 uses crt;
 var st:string;ch:char;i:integer;
 begin
 clrscr;
 i:=0;
 writeln (‘vvedite text’);
 readln;
 Repeat
 ch:=readkey;
 st:=' ';
 while ch<>#0 do
 begin
 st:=st+ch;
 ch:=readkey
 end;
 i:=i+1;
 while pos('.',st)<>0 do st[pos('.',st)]:='!';
 until c=#59
 write ('i = ',i);
 end.

так?
подправьте пожалуйста,как надо.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[iCaesy]

Непонятно что у вас оО

program prim;
uses crt;
var
st:string;
ch:char;
i:integer;
begin
clrscr;
i:=0;
writeln ('Vvedite text');
readln (st);
writeln ('Ishodnaya stroka: ',st,'Zamenim "." na "!"');
while pos('.',st)<>0 do begin
 st[pos('.',st)]:='!';
 inc (i);
end;
writeln ('Stroka: ',st);
write ('Kol-vo: ',i);
end.

[Casper098]

Спасибо,но мне надо конец ввода F1.