Найти наибольший и наименьший элемент в каждой строке матрицы. Отсортировать... (Паскаль)

[Tifa]

Дана матрица nxm Найти наибольший и наименьший элемент в каждой строке..Отсортировать эти максимумы по убыванию в матрицеб а минимумы по возрастаниюю. указать какое количество максимальных и минимальных элементов находица в каждом столбце.

var
a:array [1..100,1..100] of integer;
amin,amax,kolmax,kolmin:array[1..100] of integer;
n,m,j,i,min,max,p,k,x,z :integer;
f:boolean;
begin
  write('Vvedite kol-vo strok=');
  read (m);
  write('Vvedite kol-vo stolbcov=');
  read (n);
  for i:=1 to m do
  for j:=1 to n do
    begin
      write('Vvedite a[',i,',',j,']=');
      read(a[i,j]);
    end;
  writeln;
  for i:=1 to m do
    begin
      for j:=1 to n do
      write (a[i,j]:4);
      writeln;
    end;
  k:=1;
  for i:=1 to m do
    begin 
      max:=a[i,1];
      min:=a[i,1];
     for j:=1 to n do
       begin
          if a[i,j]>max then max:=a[i,j];
          if a[i,j]<min then min:=a[i,j];
       end;
      amax[k]:=max;
      amin[k]:=min;
      k:=k+1;
      writeln('Min v ',i,' stroke=',min,' ',',Max=',max);
   end;
   for i:=1 to k-1 do
     begin
       for j:=i+1 to k-1 do
          begin
            if amax[i]<amax[j] then
               begin
                  p:=amax[i]; amax[i]:=amax[j]; amax[j]:=p;
               end;
           if amin[i]>amin[j] then
             begin
                x:=amin[i]; amin[i]:=amin[j]; amin[j]:=x;
             end;
         end;
     end;
    writeln('Otsortirovannye max elementy');
    for i:=1 to k-1 do
    writeln(amax[i]);
    writeln('Otsortirovannye min elementy');
    for i:=1 to k-1 do
    writeln(amin[i]);
    kolmax[1]:=0;
    z:=1;
    for j:=1 to n do
       begin
          for i:=1 to m do
             begin
                for k:=1 to k-1 do
                    begin
                       if amax[k]=a[i,j] then kolmax[z]:=kolmax[z]+1;
                       if amin[k]=a[i,j] then kolmin[z]:=kolmin[z]+1;
                    end;
             end;
             z:=z+1;
         end;lmax[z]+1;
                       if amin[k]=a[i,j] then kolmin[z]:=kolmin[z]+1;
                    end;
             end;
             z:=z+1;
         end;
   for i:=1 to z-1 do
     begin
       writeln('Kol-vo max elementov v ',i,' stolbce=',kolmax[i]);
       writeln('Kol-vo min elementov v ',i,' stolbce=',kolmin[i]);
     end;
     Readln;
    Readln

блин.....находин неаибольший и наименьший элемент в каждой строке Сортирует максимумы по убыванию минимумы по возрастанию а вот...указать какое количество максимальных и минимальных элементов находица в каждом столбце. почемуто не работает(....напишите код плиз где не праавельно