Про массив задачка

for i := 1 to N do begin
   read(t1,a[i]);
   write(a[i],' ');
   if bol then begin bol := false; max := a[1]; end;
   if a[i]>max then max := a[i];
  end;
  writeln;
  close(t1);
  for i := 1 to N do
   if a[i]<>max then begin
    x := a[i];
    break;
   end;
  for i := 1 to N do 
   if (a[i]>x) and (a[i]<max) then x := a[i];
  assign(t2,'Output.txt');
  rewrite(t2);
  writeln(t2,x);
  close(t2);
  writeln('Результат в Output.txt : ',x); 
  readln;
end.

uses
  crt;  
type
  TArr = array[1..100] of integer;  
var
  t1, t2 : text;
  c : char;
  N, i, max, x : integer;
  a : TArr;
  bol : boolean;
begin
  clrscr;
  write('Имя входного файла : '); 
  assign(t1,'Input.txt');
  {$i-}
  reset(t1);
  {$i+}
  If IOResult <> 0 then begin
   writeln('Файл Input.txt не найден.');
   write('Создать файл? д/н, y/n : '); readln(c);
   if (c = 'n') or (c = 'н') then exit;
   rewrite(t1);
   repeat
   write('Количество элементов в последовательности (2..100), N = '); 
   readln(N);
   until N in [2..100];
   writeln(t1,N);
   randomize;
   for i := 1 to N do write(t1,random(201)-100,' ');
   writeln(t1);
   close(t1);
  end;
  reset(t1);
  writeln('Содержимое файла Input.txt : ');
  readln(t1,N); writeln(N);
  bol := true;
  for i := 1 to N do begin
   read(t1,a[i]);
   write(a[i],' ');
   if bol then begin bol := false; max := a[1]; end;
   if a[i]>max then max := a[i];
  end;
  writeln;
  close(t1);
  for i := 1 to N do
   if a[i]<>max then begin
    x := a[i];
    break;
   end;
  for i := 1 to N do 
   if (a[i]>x) and (a[i]<max) then x := a[i];
  assign(t2,'Output.txt');
  rewrite(t2);
  writeln(t2,x);
  close(t2);
  writeln('Результат в Output.txt : ',x); 
  readln;
end.