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

N = 0
try:
    with open('integers.txt','r') as f:
        for line in f:
            x = int(line)
            N += 1
            print(N,"=>",x)
            if N > 2:
                a3 = a4
                a4 = x
            elif N == 2:
                a4 = a2 = x
            elif N == 1:
                a3 = a1 = x
except IOError:
    print("Файл не найден")

print("a1 =",a1,"; a2 =",a2,"; a3 =",a3,"; a4 =",a4)
									

program File7;
var
 S:String;
 F: File of Integer;
 i,Num,NumEnd,NumEnd1:integer;
begin
  Write('S: ');
  Readln(S);
  Assign(F,S);
  Reset(F);
  Num:=1;
  while (not eof(F))  do
   begin
    Read(F,i);
    if Num<3 then Writeln(i);
    NumEnd1:=NumEnd;
    NumEnd:=i;
    inc(Num);
   end;
  Writeln(NumEnd1);
  Writeln(NumEnd);
  Close(F);
end.