Итак очередное задание у меня тут) Но щас все немного проще, чем раньше)
Есть задание
"Написать программу, которая будет считывать нажатую клавишу и выводить ее на экран.Все это должно повторятся циклически, до нажатия клавиши Z"
вот я тут что-то накидал) Но я идиот) и накидал как-то крайне глупо.
вот.

Var x: char;
begin
writeln('najmite z');
repeat
x:=readkey;
writeln(ord(x));
x:=char(10);
until keypressed(z);
readln;
end.

А главное, что чертов паскаль 7.1 пишет, Uknown Indefecator на readkey/