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

[Casper098]

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.

Как сделать чтобы конец ввода был F1?

[Poma][a]

Сообщение от Casper098

Как сделать чтобы конец ввода был F1?

не понимаю вашего вопроса

Сообщение от Casper098

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

а здесь можно перед циклом вызвать Pos, а в условии проверять i > 0

[IT-man]

Как сделать чтобы конец ввода был F1?

читать символы через readkey и как только нажата F1 заканчивать

writeln('Введите текст, окончание ввода F1:');
s:='';
repeat
c:=readkey;//читаем первый символ ко коду
if c<>#0 then//если не расширенный
 begin
  n:=n+1;//считаем
  write(c);//выводим
  s:=s+c;//пишем в строку
 end
else   //если первый 0
 begin
  c1:=readkey; //второй
  if c1=#59 then writeln;//если F1, конец ввода
 end;
if (length(s)=0) then//если всего 1 символ и это F1, повторить
 begin
  writeln('Вы не ввели ни одного символа, повторите ввод');
  s:='';
 end;
until (c=#0)and(c1=#59)and(length(s)>1);//есть символы кроме F1 и нажат он, конец ввода

(с)Puporev

[Casper098]

как это будет выглядеть с моей программой?
может по проще можно?
uses crt;
repeat
ch:=readkey
while ch<>#0 do
begin write
.....{обработка символа}
ch:=readkey;
end;
ch:=readkey;
until ch=#59;

вот так вроде можно на F1
как правильно мою программу в {обработку символа} вставить чтобы работала,а то я пробывал не получалось.