Исправить ошибки

program
 kr;
uses
 crt;
var
 a:array[1..2,1..6] of integer;
 i,j,s,max:integer;
begin
 readln;
 clrscr;
 randomize;
 for i:=1 to 2 do
 begin
 for j:=1 to 6 do
 begin
  a[i,j]:=random(100);
  write(' ',a[i,j]);
 end;
 writeln;
 end;
begin
 for i:=1 to 2 do
 begin
 s:=0;
 max:=a[1,1];
 for j:=1 to 6 do
  s:=s+a[i,j];
  if a[i,j] > max then max:=a[i,j];
 writeln(' ',max);
 end;
end;
end.

program kr;
uses crt;
function Max(a,b:integer):integer;
begin
if a>b then Max:=a else Max:=b;
end;
var d:array[1..2,1..6] of integer;
    f:text;
    i,j,min:integer;
begin
clrscr;
randomize;
assign(f,'matrix.txt');
rewrite(f);
writeln('Исходная матрица:');
writeln(f,'Ishodnaya matrica:');
for i:=1 to 2 do
 begin
  for j:=1 to 6 do
   begin
    d[i,j]:=random(100);
    write(d[i,j]:4);
    write(f,d[i,j]:4);
   end;
  writeln;
  writeln(f);
 end;
min:=Max(d[1,1],d[2,1]);
writeln('Максмальные элементы столбцов матрицы:');
writeln(f,'Maximalnye elementy stolbcov matricy:');
for j:=1 to 6 do
 begin
  writeln('Столбец ',j,'=',Max(d[1,j],d[2,j]));
  writeln(f,'Stolbec ',j,'=',Max(d[1,j],d[2,j]));
  if Max(d[1,j],d[2,j])<min then min:=Max(d[1,j],d[2,j]);
 end;
writeln('Минимальный из максимальных=',min);
writeln(f,'Minimalnyj iz maximalnyh=',min);
close(f);
readln
end.