Найти максимум из чисел

[lefok]

Найти максимум из чисел, встречающихся в целочисленной матрице А один раз. В качестве вектора x взять столбец, содержащий этот элемент.

Начало программы.

program Lab7;
const
  N=10;
type
  TMatrix=array [1..N,1..N] of integer;
  TVector=array [1..N] of integer;
procedure FillMatrix(var A:TMatrix; N:integer);
var
  i,j:integer;
begin
  for i:=1 to N do
   for j:=1 to N do
    A[i,j]:=(sqr(2*i-j)+sqr(i)+sqr(j))
end;
procedure GetVector(var A:TMatrix;var X:TVector; N:integer);
// .....????

[Aleksandr H.]

Найти максимум из чисел, встречающихся в целочисленной матрице А один раз. В качестве вектора x взять столбец, содержащий этот элемент.

Непонятное описание. Держи решение для первого предложения

procedure FindLonely(a:tmatrix;n:integer);
type tcount=array[1..1000,1..2]of integer;
var i,j,k:integer;
    c:tcount;
    ubound_c:integer;
    max:integer;
    f:boolean;
begin
  ubound_c:=0;
  max:=0;
  for i:=1 to n do
   for j:=1 to n do
    begin
      f:=false;
      for k:=1 to ubound_c do
       begin
         if c[k,1]=a[i,j] then begin inc(c[k,2]); f:=true; break; end;
       end;
      if f=false then
       begin
         inc(ubound_c);
         c[ubound_c,1]:=a[i,j];
         c[ubound_c,2]:=1;
       end;
    end;
    for i:=1 to ubound_c do
     if (c[i,2]=1) and (max<c[i,1]) then max:=c[i,1];
   writeln('ANSWER ',max);
end;