3 element co do wielkości

Witam, napisałem właśnie program, który sortuje liczby w tablicy dwuwymiarowej, potrzebuję jeszcze na końcu po posortowaniu wyświetlić 3 co do wielkoszci liczbe. Prosze o pomoc. Wkleje końcówkę kodu.

 
        // Wyswietlanie tablicy
  writeln('Tablica po sortowaniu: ');
  for i := 1 to M do
    begin
      for j := 1 to N do
        write(tab[i, j]:3, ' ');
      writeln;
    end;

Jeżeli liczby są posortowane malejąco i wszystkie są różne to trzecią co do wielkości będzie tab[1,3] albo tab[3,1] w zależności od tego jak są poukładane w tablicy.