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

[Casper098]

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

Как правильно написать программу?

program 123;
uses crt;
var st:string;ch:char;
begin
clrscr;
ch := readkey;
while ch <> #59 do
begin

[rubius2008]

  st:=st+ch;
  ch:=readkey;
end;

а для замены организуете цикл

while pos('.',st)<>0 do st[pos('.',st)]:='!';

а про количество сами попытайтесь сделать

[Casper098]

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

так будет?

[rubius2008]

вот так (лишнее убрал)

 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.

[Casper098]

while pos('.',st)<>0 do st[pos('.',st)]:='!';
{а тут строку измененную выведите}
end.[/CODE][/QUOTE]

всмысле строку изменненую?какую?

[rubius2008]

После замены "." на "!"

[Casper098]

аа все понял,не то подумал,спасибо!

[rubius2008]

Не забудьте подсчитать количество! Удачи!

[Casper098]

может все таки кто-нибудь подскажет,как найти их количество.