Решение задачи File 6

import random

K = random.randrange(1,11)
print("K:",K)
N = 0
try:
    with open('integers.txt','r') as f:
        for line in f:
            N += 1
            print(N,"=>",int(line))
            if N == K:
                break
except IOError:
    print("Файл не найден")

if N == K:
    print("Result:",K,"=>",int(line))
else:
    print(-1)
									

program File6;
var
 S:String;
 F: File of Integer;
 K,i,Num:integer;
begin
  Write('S: ');
  Readln(S);
  Write('K: ');
  Readln(K);
  Assign(F,S);
  Reset(F);
  Num:=1;
  while (not eof(F)) and (Num<=K)  do
   begin
    Read(F,i);
    inc(Num);
   end;
  if Num-1<>K then Writeln(-1)
  else writeln(i);
  Close(F);
end.