Считывание данных из файла и определение столбца, который содержит мах элемент в первой строке

program maaaassssyyyyv;
 
type mas=array[1..5,1..7] of integer;
  var
    mas1: array [1..5,1..7] of char;
    t:text;
    j,n,i:integer;   
    a:mas;
 procedure s(i,j:integer;a:mas;var t:text);
begin
  randomize;
  rewrite(t);
  for i:=1 to 5 do
  for j:=1 to 7 do begin
 a[i,j]:=random(10);
  write(t,a[i,j]:3);  end;
  close(t);
end;
 
begin
 
  assign(t,'t2.txt');
  s(i,j,a,t);
   reset(t);
     for i:=1 to 5 do
  for j:=1 to 7 do begin
  read (t,mas1[i,j]);
     a[i,j]:=ord(mas1[i,j])-48;
    end;
     n:=a[1,1];
     for j:=1 to 7 do begin
        if a[1,j]>n then begin
          n:=a[1,j] ;
           writeln(a[1,j]);
           writeln;
           write (a[i,1]);
     end;
     end;
     close(t);
end.

var
    f, g : Text;
    i, j, jMax : Byte;
    a : Array[0..4, 0..6] Of Integer;
 
begin
    Assign(f, 'f.txt'); Reset(f);
    for i := 0 to 4 do
        for j := 0 to 6 do
            Read(f, a[i, j]);
    Close(f);
    jMax := 0;
    for j := 1 to 6 do
        if (a[0, jMax] < a[0, j]) then
            jMax := j;
    Assign(g, 'g.txt'); ReWrite(g);
    Write(g, 'Столбец с максимумом: ');
    for i := 0 to 4 do
        Write(g, a[i, jMax], ' ');
    WriteLn(g);
    Write(g, 'Строка с максимумом: '); //в любом случае первая, солгасно заданию
    for j := 0 to 6 do
        Write(g, a[0, j], ' ');
    Close(g);
end.

var
    f : Text;
    i, j : Byte;
begin
    Randomize;
    Assign(f, 'f.txt'); ReWrite(f);
    for i := 0 to 4 do
    begin
        for j := 0 to 6 do
            Write(f, (Random(199) - 99), ' ');
        WriteLn(f);
    end;
    Close(f);
end.