Как сделать так, чтоб вводя текс с клавиатуры, после нажания точки, ввод прекращался(типа чтоб точка соответствовала Интеру)

ch: char;
...
repeat
  ch := readkey;
until ch = '.';
...

в следующий раз называй тему более информативно.

спасибо