Строковый тип

[Ilya_Vydysh]

С клавиатуры вводятся символы, пока не встретится точка или количество введенных символов превысит 79. Вывести на печать общее количество введенных символов.

[IT-man]

var k:integer;
c:char;
begin
k:=0;
while (K<=79) and (c<>'.') do begin
read(c);k:=k+1;
end;
writeln(k-1);
end.

[Serge_Bliznykov]

readln(c);

а я бы в данном случае воспользовался функцией Read(c) или даже организовал ввод через ReadKey()...