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

N = 0
try:
    with open('integers.txt','r') as f:
        for line in f:
            N += 1
            print(N,"=>",int(line))
except IOError:
    print("Файл не найден")
print("Количество элементов: ", N)
									

program File5;
var
 S: String;
 F: File of Integer;
 i,Num: integer;
begin
  Write('S: ');
  Readln(S);
  Num:=0;
  Assign(F,S);
  {$I-}
  Reset(F);
  {$I+}
  if IOResult<>0 then Writeln(-1)
  else
   begin
    while not eof(F) do
     begin
      Read(F,i);
      writeln(i);
      inc(Num);
     end;
   end;
  Writeln(Num);
  Close(F);
end.