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

[Casper098]

Program prim;
uses crt;
var ch:char; i:integer; st:string;
begin
repeat
while ch<>#0 do begin
write (ch);
i:=0;
clrscr;
writeln ('vvedite text' , 'po okonchaniu vvoda najmite F1');
readln (st);
writeln ('ishodnaya stroka: ',st,'zamenim "." na "!");
while pos('.',st)<>0 do begin
st [pos('.',st)]:='!';
inc(i);
end;
ch:=readkey;
end;
ch:=readkey;
until ch=#59;
writeln ('stroka: ',st);
write('kol-vo: ',i);
end.

помогите разабраться,не корректно работает на f1,нужно сперва нажать enter,только после его нажатия срабатывает f1.

[Zer0]

readln (st);
естественно пока Вы Enter не нажмете, программа будет висеть на этой строке
уберите ее, замените ввод подобным образом:

i:=0;
clrscr;
st:='';
writeln ('vvedite text' , 'po okonchaniu vvoda najmite F1');
repeat
  ch:=readkey;
  if ch<>#59 then st:=st+ch;
until ch=#59;
writeln ('ishodnaya stroka: ',st,'zamenim "." na "!");
while pos('.',st)<>0 do begin
  st [pos('.',st)]:='!';
  inc(i);
end;