Массив, Помогите исправить ошибку!!! Опции

[Макс]

В заданном двумерном массиве поменять местами минимальные элементы среди положительных.

Проблема в том что не могу найти второй наименьший элемент(приравнивается к первому)

Помогите еси не трудно

Код

uses crt;
var a:array[1..50,1..50] of integer;
    i,j,m,n,minp1,minp2,min_i,min_j:integer;
    key:char;
procedure zapolnenie;
begin
  for i:=1 to n do
  for j:=1 to m do
  begin
  A[i,j]:=random(20);
end;
end;

procedure vyvod;
begin
    for i:=1 to n do begin
    for j:=1 to m do
    write(' ',a[i,j]);
    writeln;
    end;
end;

procedure naimpoloz1;
begin
  minp1:=a[1,1];
  min_i:=1;min_j:=1;
  for i:=1 to n do
  for j:=1 to m do
  begin
  if a[i,j]<minp1 then minp1:=a[i,j];
  if a[min_i,min_j]>a[i,j] then begin
  min_i:=i;
  min_j:=j;
  end;
  end;
  writeln(minp1);
  writeln(min_i,'   ',min_j);
  end;

procedure naimpoloz2;
begin
  minp2:=a[min_i,min_j];
  for i:=1 to n do
  for j:=1 to m do
  begin
  if a[i,j]<minp2 then minp2:=a[i,j];
  end;
  writeln(minp2);
end;

procedure obmen;
begin
..........
end;

begin
    repeat
    clrscr;
    textcolor(white);
    writeln('vvedite kol-vo strok');
    readln(n);
    writeln('vvedite kol-vo stolbcov');
    readln(m);
    zapolnenie;
    vyvod;
    naimpoloz1;
    naimpoloz2;
    obmen;
    writeln('Dla vyhoda nazmite N');
    key:=readkey;
    until upcase (key)='N';
end.