Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел (длина последовательности не ограничена). Ниже представлен рекомендуемый вид экрана во время работы программы:
*Определение максимального числа последовательности положительных чисел*
Вводите после стрелки числа. Для завершения введите ноль

выдает ошибку в этой строке! If KeyPressed = true than

А какая?

Turbo Pascal:Program readInteger;Uses CRT;Var s:char; z:Integer;BeginClrScr;WriteLn('Введите числа:');repeatIf (KeyPressed = true) thanbeginS:=ReadKeyz:=z+1;End;Until s ="0";Write('Вы ввели ',z,' чисел!');ReadLn;End.