стринг

[Casper098]

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

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

не срабатывает на f1


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

[Casper098]

или может кто предложит свою версию программы?