В каждом столбце первый элемент поменять с последним элементом.

[_viktorija_]

Здравствуйте! Помогите решить задачу на двумерные массивы. Примерно она должна выглядеть так:

Uses Crt;
const n=10; m=7;
type mas2=array[1..n,1..m] of integer;
Procedure Vvod2 (var a:mas2);
var i:integer; j:integer;
Begin
   Randomize;
   For i:=1 to n do
   for j:=1 to m do
   a[i,j]:=Random(1000);
End;
Procedure Print2(a:mas2);
var i:integer; j:integer;
Begin
   for i:=1 to n do
   begin
   for j:=1 to n do write(a[i,j]:4);
   writeln;
End;
End;
Procedure Zamin(var a:mas2);
var z, min,j,i,k:integer;
Begin
   for j:=1 to n do 
    Begin
      min:=a[i,j]; k:=1;
      for i:=2 to n do
      if a[i,j]<min then
       begin min:=a[i,j]; k:=1 end;
       z:=a[i,j];
       a[i,j]:=a[k,j];
       a[k,j]:=z;
      end;
 End;
 Begin
   clrscr;
   Vvod2(a);
   Print2(a);
   writeln;
   zamin(a);
end.