Лок. МИН-мы, девушке нуна помощь Опции

[ффф]

Элемент Матрицы называется ЛОКАЛЬНЫМ МИНИМУМОМ, если он меньше всех соседей(по строке и столбцу). Напистаь программу , обеспечивающую ввод с клавиатуры целочисленной матрицы размером M на N, и обнаружение и подсчет кол-ва всех локальных минимумов....


вот моя прога по локальным минимумам....

Код

uses crt;
const nn=15;
type tt=1..nn;
var n,m:tt;
c:0..nn*nn;
x:byte;
i,j:tt;
e,r:set of tt;
a:array[tt,tt]of integer;
function f(i,j:tt):boolean;
var q,w:-1..2;
d:boolean;
begin
d:=2<3;
q:=-1;
while d and (q<=1) do
begin
w:=-1;
 while d and (w<=1) do
 begin
  if q*q+w*w<>0  then
   if (i+q in e) and (j+w in r)  then d:=d and (a[i,j]<a[i+q,j+w]);
  inc(w);
 end;
 inc(q)
end;
f:=d;
end;
begin
write('m=');
readln(m);
write('n=');
readln(n);
e:=[];
r:=[];
for j:=1 to n do r:=r+[j];
for i:=1 to m do
begin
e:=e+[i];
for j:=1 to n do
  begin
   write('a[',i,',',j,']=');
   readln(a[i,j]);
end;
end;
c:=0;
for i:=1 to m do
begin
for j:=1 to n do
begin
 x:=ord(f(i,j));
 textcolor(11+x);
 c:=c+x;
 write(a[i,j]:7);
end;
writeln;
end;
writeln(c);
end.

но преподавателю кое-что не понравилось
он сказал ЭТУ программу переделать так чтоб
1) Матрица задавалась не с клавиатура а из файла, в котором лежит 5-10 матриц, оттуда берем матрица
2) Чтоб было 2 TPU модуля один в котором меняем размерность матрицы, второй в котором ищем локальные минимумы.....



оч прошу вас..ребята вы же знаете как это делать
пожалуйста