В файл записан квадратный массив, нужно прочитать главную диагональ не используя массив - Turbo Pascal

uses crt;
var f:text;
    n,a,i,j:integer;
begin
clrscr;
assign(f,'1.txt');
reset(f);
n:=0;
while not eoln(f)do{прочитаем первую строку, определим размер матрицы}
 begin
  read(f,a);
  n:=n+1;
 end;
close(f);
reset(f);
writeln('Элементы главной диагонали:');
i:=0;j:=0;
while not eof(f) do{прочитаем весь сначала}
 begin
  read(f,a);
  j:=j+1;{считаем количество в строке}
  if j mod n=1 then{если n}
   begin
    i:=i+1;{новая строка}
    j:=1;{первый элемент}
   end;
  if j=i then write(a,' ');{если главная диагональ}
 end;
close(f);
readln
end.