Найти минимальное из чисел, встречающееся в данной матрице более одного раза

uses crt;
var n, i, j: integer;
    t: boolean;
    min, m: real;
    a: array [1..10, 1..10] of real;
    b: array [1..100] of real;
procedure form;
begin
     for i:=1 to n do
         for j:=1 to n do begin
             write ('A[',i,',',j,'] = ');
             readln (a[i,j]); end;
end;
 
procedure vivod;
begin
     for i:=1 to n do begin
         for j:=1 to n do write (a[i,j]:8:2, ' ');
         writeln; end;
end;
 
begin
clrscr;
     randomize;
     write ('vvedi razmer: '); readln (n);
     form;
     vivod;
     for i:=1 to n do
         for j:=1 to n do b[(i-1)*n+j]:=a[i,j];
     for i:=1 to n*n-1 do
         for j:=1 to n*n-i do
             if b[j]>b[j+1] then
                begin
                     m:=b[j];
                     b[j]:=b[j+1];
                     b[j+1]:=m;
                end;
     for i:=n*n downto 2 do if b[i]=b[i-1] then begin
         min:=b[i];
         t:=true; end;
     if t then writeln ('min = ',min:3:2)
        else writeln ('net odinakovih');
     write ('zamenit nuli na: '); readln (m);
     write ('nulevie elementi: ');
     for i:=1 to n do
         for j:=1 to n do if a[i,j]=0 then begin
             write ('A[',i,',',j,'], ');
             a[i,j]:=m; end;
     writeln;
     vivod;
readkey;
end.