Как сделать так, чтоб вводя текс с клавиатуры, после нажания точки, ввод прекращался(типа чтоб точка соответствовала Интеру)
ch: char;...repeat ch := readkey;until ch = '.';...
спасибо