Даны четыре массива a[6,6], b[6,6], c[6,6], d[6,6]. Найти сумму минимальных элементов, расположенных в четных столбцах этих массивов — Pascal(Паскаль)

program z2;
type
 Tar = array [1..6,1..6] of integer;
var
 a, b, c, d: Tar;
 s, s1, s2, s3, s4, j, i: integer;
function SumMin(g: Tar): integer;
var
 min, sum: integer;
 begin
 i:= 2;
 sum:= 0;
  repeat
   begin
    min:= g[1,i];
    for j:= 1 to 6 do
     begin
      if g[j,i] < min then
      min:= g[j,i];
     end;
    sum:= sum+min;
    i:= i + 2;
   end;
  until i > 6;
 SumMin:= sum;
 end;
procedure Gen(Var l:Tar);
begin
 for j:= 1 to 6 do
  begin
   for i:= 1 to 6 do
    begin
     l[j,i]:= random(100);
     write(l[j,i], ' ');
    end;
   writeln('');
  end;
 end;
begin
 Randomize;
 Gen(a);
 writeln('');
 Gen(b);
 writeln('');
 Gen(c);
 writeln('');
 Gen(d);
 writeln('');
 s1:= SumMin(a);
 s2:= SumMin(b);
 s3:= SumMin(c);
 s4:= SumMin(d);
 s:= s1+s2+s3+s4;
 writeln('Summa is: ',s);
 readln;
end.