Задача с УКАЗАТЕЛЯМИ, ПОМОГИТЕ РЕШИТЬ!

[RomT24]

Доброго времени суток!
Есть вот такая, уже решенная мной задача (условие в комментариях):

{Программа ищет особый элемент в матрице
Особым считается элемент, который МЕНЬШЕ всех последующих в ДАННОМ столбце}

Program Osobaya;

uses crt;

{Вывод матрицы}

procedure printMatr(A : array [1..100,1..100] of integer; m,n : integer);
 var i,j : integer;
 begin
  for i:=1 to M do
   begin
    for j:=1 to N do
     write(A[i,j]:4);
     writeln;
   end;
  writeln;
 end;

 {Поиск особого эл-та}

 procedure SearchElem (a: array [1..100,1..100] of integer; m,n:integer;
  var arr:array [1..100] of integer; var g:integer);
 var
  i,j,f,x,k:integer;
 begin
  g:=1;
  for j:=1 to n do
   begin
    for i:=1 to m-1 do
     begin
      f:=0;
      for k:=i+1 to m do
       begin
        if a[k,j] > a[i,j] then
         f:=f+1;
       end;
      if f=m-i then
       begin
        x:=a[i,j];
        arr[g]:=x;
        g:=g+1;
       end;
     end;
  end;
 end;

 {Вывод массива особых эл-ов}

procedure PrintMass(arr : array [1..100] of integer; L : integer);
 var
  i : integer;
 begin
  writeln('Массив особых эл-ов: ');
  for i:=1 to L-1 do
   write(arr[i]:4);
 end;


var
 a: array [1..100,1..100] of integer;
 arr: array [1..100] of integer;
 i,j:integer;
 k:integer;
 f,g:integer;
 x,j1:integer;
 n,m:integer;
 
begin
 clrscr;
 writeln('Введите размер матрицы: ');
 read(m,n);
 writeln ('Вводите матрицу: ');
 
 for i:=1 to m do
  for j:=1 to n do
   read(a[i,j]);

  writeln;
  writeln('Матрица: ');

  PrintMatr(a,m,n);
  SearchElem(a,m,n,arr,g);
  PrintMass(arr,g);
  
 end.

Так вот, преподаватель по информатике сказал, чтобы я представил другой вариант решения - применяя указатели. Каким образом - неизвестно.. Да и вообще с указателями я на "вы".. Кто сможет помочь сделать на основе этого текста новую программу, но уже с указателями, тому буду очень благодарен!

[Daramant]

Пример с указателями:

Program Osobaya;

uses crt;

{ параметризуем размеры массивов. это упростит модификацию, если она понадобится }
const 
  MAX_ROW_COUNT = 100;
  MAX_COL_COUNT = 100;

type
 { введем новый тип - тип элемента массива (в общем тоже для удобства модификации)}
  TElemType = Integer;
 { тип - указатель на матрицу }
  PMatrix = ^TMatrix;
 { тип - матрица }
  TMatrix = array[1..MAX_ROW_COUNT, 1..MAX_COL_COUNT] of TElemType;
 { тип - указатель на маcсив }
  PArray = ^TArray;
 { тип - массив }
  TArray = array[1..MAX_COL_COUNT] of TElemType;

{ в процедуры передаем указатель на массив/матрицу}
{ переменную-указатель можно передавать без модификатора var, т.к.
в процедуре будет изменяться значение не самого указателя, а данных, на которые данный указатель указывает }


procedure printMatr(A: PMatrix; m,n : integer);
 var i,j : integer;
 begin
  for i:=1 to M do
   begin
    for j:=1 to N do
     write(A^[i,j]:4);
     writeln;
   end;
  writeln;
 end;

 {Поиск особого эл-та}

 procedure SearchElem (a: PMatrix; m,n:integer;
  arr: PArray; var g:integer);
 var
  i,j,f,x,k:integer;
 begin
  g:=1;
  for j:=1 to n do
   begin
    for i:=1 to m-1 do
     begin
      f:=0;
      for k:=i+1 to m do
       begin
        if a^[k,j] > a^[i,j] then
         f:=f+1;
       end;
      if f=m-i then
       begin
        x:=a^[i,j];
        arr^[g]:=x;
        g:=g+1;
       end;
     end;
  end;
 end;

 {Вывод массива особых эл-ов}

procedure PrintMass(arr : PArray; L : integer);
 var
  i : integer;
 begin
  writeln('Массив особых эл-ов: ');
  for i:=1 to L-1 do
   write(arr^[i]:4);
 end;


var
 a: PMatrix;  { переменная-указатель на матрицу }
 arr: PArray;  { переменная-указатель на массив }
 i,j:integer;
 k:integer;
 f,g:integer;
 x,j1:integer;
 n,m:integer;

begin
 { создаем матрицу и массив. Т.е. выделяем для них память. }
 New(a); 
 New(arr);

 clrscr;
 writeln('Введите размер матрицы: ');
 read(m,n);
 writeln ('Вводите матрицу: ');
 
 for i:=1 to m do
  for j:=1 to n do
   read(a^[i,j]);

  writeln;
  writeln('Матрица: ');

  PrintMatr(a,m,n);
  SearchElem(a,m,n,arr,g);
  PrintMass(arr,g);
  
  { освобождаем выделенную ранее память }
  Dispose(a);
  Dispose(arr);

 end.

Удачи.