[Alegun]

Верните всё на место и перенесите в локальную var секцию данной процедуры вот это

Код:

...
var
 i: byte;
 f: TextFile;
 key: array[0..9] of byte;
...