Текст задания

Дана матрица размерности n x n (двумерный массив). Массив состоит из чисел 0, 1, 2, 3. Требуется распечатать индексы таких элементов матрицы, которые являются верхней левой вершиной квадрата 2 x 2
чисел 0, 1, 2, 3.

Исходный код программы

Program MN_4;
uses crt;
var
i,j,n:integer;
a: array[1..20,1..21] of integer;
b: array[1..4, 1..4] of integer;
begin
clrscr;
Write('n=');			{задаем размерность матрицы}
readln(n);
For i:=1 to n do		{цикл для ввода элементов матрицы}
 begin
  for j:=1 to n do
   begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
   end;
 end;
for i:=1 to 2 do		{цикл для ввода элементов квадрата 2х2}
 begin
  for j:=1 to 2 do
   begin
    write('b[',i,',',j,']=');
    readln(b[i,j]);
   end;
 end;
Writeln('indeksi:');
for i:=1 to n do		{в цикле сравниваем каждый элемент матрицы с верхним левым углом квадрата}
 begin
  for j:=1 to n do
   begin
    if a[i,j]=b[1,1] then	{если одинаково, то выводи}
    writeln(i,', ',j);
   end;
 end;
readln;
end.

Результат работы программы