Поиск локальных минимумов и вывод их на экран

[юджик]

Задание звучит так: Дана целочисленная квадратная матрица. Элемент матрицы называется локальным минимумом, если он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных минимумов матрицы. Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел.
это я сделал

function LocMin(i,j:integer;a:Matr):boolean;
begin
LocMin:=((i=1)or(a[i,j]<a[i-1,j]))and
        ((j=1)or(a[i,j]<a[i,j-1]))and
        ((i=10)or(a[i,j]<a[i+1,j]))and
        ((j=10)or(a[i,j]<a[i,j+1]));
end;
begin
randomize;
write('razmer matricy',' n=');
readln(n);
for i:=1 to n do
   begin
    for j:=1 to n do
      begin
        a[i,j]:=random(20)-5;
        write(a[i,j]:4);
      end;
    writeln;
   end;
writeln;
k:=0;
for i:=1 to n do
for j:=1 to n do
if LocMin(i,j,a)then k:=k+1;
writeln('Kolichestvo lokalnyh minimumov k=',k);

Но препод попросил еще и вывести найденные локальные минимумы...не могу додуматься как это сделать. Пожалуйста помоги уже завтра сдавать!

[Stilet]

for i:=1 to n do
for j:=1 to n do
if LocMin(i,j,a)then begin k:=k+1; write(a[i,j]:5); end;

[юджик]

точно)))Спасибо большой...загнался уже