Функциональные клавиши

[missololo]

1. Написать программу, обрабатывающую нажатие клавиш на клавиатуре. При нажатии функциональных клавиш (‘F1’ – ‘F10’) выводить их код сканирования вмести с названием клавиши. Во всех остальных случаях – выводить сообщение: ‘Не управляющая клавиша’. Ввод продолжать до нажатия клавиши ‘Ins’ на дополнительной клавиатуре.
Не получается сделать,чтоб выводил и название клавиши.

Uses
     Crt;
   var
     key:char;
   begin
     repeat
       key:= ReadKey;                
       if Key = #0 then begin         
          key:= ReadKey;             
          if (Ord(Key)>=59) and (Ord(Key)<=68) then begin 
            Write('0,');       
            Writeln(Ord(Key):3);           
          end
          else writeln('Нажата не функциональная клавиша*'); 
       end
       else writeln('Нажата не функциональная клавиша*');       
     until Key = #82;                  
   end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[@нтошка]

Приведите код в порядок. Он не читаем.

[Serge_Bliznykov]

пользуясь тем, что коды идут подряд, и у клавиши F1 код 59 - очевидно, что достаточно из кода вычитать 58, чтобы получить номер функциональной клавиши..

          if (Ord(Key)>=59) and (Ord(Key)<=68) then begin 
            Writeln('0,', Ord(Key):3, ' название клавиши: F',ord(key)-58);
          end
          else writeln('Нажата не функциональная клавиша*');