Програма с матрицами

const
  n=5;
  m=5;
type
  arr=array[1..n,1..m] of integer;
var
  a,b:arr;
  i,j,min:integer;
begin
  randomize;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(20)+1;
        write(a[i,j]:5);
        if j=m then
          writeln;
      end;
  {Poisk minimalnogo v stolbtse}
  for j:=1 to m do
    begin
      min:=1;
      for i:=1 to n-1 do
        begin
          if a[min,j]>a[i+1,j] then
            min:=i+1;
        end;
  {Zapolnenie massiva b elementami massiva a*min v stolbtse}
      for i:=1 to n do
        b[i,j]:=a[i,j]*a[min,j];
    end;
  {Vyvod b}
  writeln;
  for i:=1 to n do
    for j:=1 to m do
      begin
        write(b[i,j]:5);
        if j=m then
          writeln;
      end;
  readln;
end.

program obmen;
var
i,j,i1,j1,n,m,min:integer;
ke1,ke2:array[1..20,1..20] of integer;
begin
writeln('Vvedite razmernost massiva, N<=20 and M<=20');
read(n,m);
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
ke2[i,j]:=random(20);
write(ke2[i,j]:3);
end;
end;
    for j:=1 to m do
      begin
      min:=ke2[1,j];
      for i:=1 to n do
      if ke2[i,j]<min then
      min:=ke2[i,j];
      for j1:=j to j do
        for i1:=1 to n do
        ke1[i1,j1]:=ke2[i1,j1]*min;
      end;
    writeln('Jtsortirovannui massiv');
for i:=1 to n do
begin
writeln;
for j:=1 to m do
write(ke1[i,j]:5);
end;
end.