Двумерный массив. Матрица

uses crt;
const n=5;
var a:array[1..n,1..n]of integer;
i,j,b,k:integer;
 
function kar(k:integer):integer;
var i:integer;
begin
 kar:=0;
 for i:=1 to n do if (i mod 2 = 1) and (a[i,k] mod 2 = 0) then kar:=kar+a[i,k];
end;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to n do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 
 k := 1;
 for i:=1 to n do if kar(i) < kar(k) then k := i;
 writeln('Характеристики столбцов:');
 for i:=1 to n do write(kar(i),' ');
  
 for i:=1 to n do
 begin
  b:= a[i,1];
  a[i,1] := a[i,k];
  a[i,k] := b;
 end;
 
 writeln('Преобразованная матрица');
 for i:=1 to n do
 begin 
  for j:=1 to n do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.

program tmp;
uses crt;
const
  count=100;
var
  i,j,n,mnx,ix,buf,sum:integer;
  mas:array[1..count,1..count] of integer;
  masx:array[1..count] of integer;
begin
  clrscr;
  randomize;
  write('n: '); readln(n);
  for i:=1 to n do begin
  for j:=1 to n do begin
                    mas[i,j]:=random(50);
                    write(mas[i,j]:3);
                    end;
                   writeln;
                   end;
 writeln;
 for j:=1 to n do begin
                  sum:=0;
                   for i:=1 to n do
                    if i mod 2=1 then
                      if mas[i,j] mod 2=0 then sum:=sum+mas[i,j];
                  masx[j]:=sum;
                  end;
 mnx:=masx[1];
 ix:=1;
 for i:=1 to n do if masx[i]<mnx then begin
                                       mnx:=masx[i];
                                       ix:=i;
                                       end;
 for i:=1 to n do begin
                   buf:=mas[i,1];
                   mas[i,1]:=mas[i,ix];
                   mas[i,ix]:=buf;
                   end;
 for i:=1 to n do begin
  for j:=1 to n do write(mas[i,j]:3);
                   writeln;
                   end;
readkey;
end.