Задача на матрицы

[Alex@ndr]

Задача такая:
Задана матрица A(MxN). Определить, какой из элементов наиболее и наименее удален от некоторого числа А.
Нужно составить блок схему алгоритма программы решающей эту задачу. Из паскаля знаю только как ввести размер этой матрицы и ее элементы, больше ничего.
Знаю тут не принято давать готовые решения и делать за другого работу, но хоть подскажите откуда вычитать похожее задание или хоть базовый алгоритм решения. Предмет всего один месяц и не профильный, мне его бы только сдать и забыть. Раз и навсегда как страшный сон

[Stilet]

Из паскаля знаю только как ввести размер этой матрицы и ее элементы

Этого хватит.
Осталось вписать условие типа

if abs(a[i,j]-некоеА)>a[maxi,maxj] then begin maxi:=i;maxj:=j;end;

Для нахождения координат самого удаленного. И наподобие такого условие для самого близкого, и вывести их (a[maxi,maxj] и второе) на экране.

[Alex@ndr]

Откуда взять переменные maxi и maxj с которыми идет сравнение?
Что тут делать?

program Mas;

Var
  
 arr:array[1..10,1..10]of real;
 a,i,j,M,N: integer

begin

  Write('A='); Readln(A);
  Write('M='); Read(M);
  Write('N=');Read(N);

  for i := 1 to M do

  begin

    for j := 1 to N do

     begin

       Write('arr(',i,',',j,')=');
       Readln (arr[i,j]);

    end;

  end;

if abs(a[i,j]-A) > a[maxi,maxj] then
  
  begin
      
      maxi:=i;
      maxj:=j;

  end;

else

  begin

  end;

end;

[Stilet]

Откуда взять переменные maxi и maxj с которыми идет сравнение?

Самостоятельно их описать )

Что тут делать?

Это условие должно быть внутри циклов, а не снаружи. else ветка не нужна совсем.