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

[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,путаюсь с циклами или не правильно написанны,может кто нибудь подскажет как правильно цикл сделать чтобы на f1 реагировало.