Работа с матрицами

uses crt;
function Pal(N:integer):boolean;{функция проверки числа на палиндром}
var M,P:longint;
    i,k:integer;
begin
M:=N;{запомним число}
P:=0;
while M>0 do{пока число не ноль}
  begin
    i:=M mod 10;{отделяем по одной цифре с конца}
    P:=P*10+i;{создаем новое, "перевернутое" число}
    M:=M div 10;{число берем без последней цифры и все повторяем}
  end;
if P=N then Pal:=true{если перевернутое=исходному, палиндром}
else Pal:=false;
end;
var a:array[1..50,1..50] of integer;
    n,i,j,k:integer;
begin
clrscr;
write('Размер матрицы n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');{введем числа вручную, рандомом мало вероятны палиндромы}
  readln(a[i,j]);
 end;
clrscr;
writeln('Матрица;');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
writeln('Числа-палиндромы <1000 в верхнем треугольнике матрицы :');
k:=0;
for i:=1 to n do
for j:=1 to n do
if(j>=i)and(j<=n-i+1)and(a[i,j]<1000)and Pal(a[i,j])then
{если выше или на главной диагонали и выше или на побочной диагонали и меньше 1000 и палиндром}
 begin
  k:=1;{фксируем}
  write(a[i,j],' ');{выводим}
 end;
writeln;
if k=0 then writeln('Указанных чисел нет!')
else
 begin
  writeln('Результат поиска:');
  for i:=1 to n do
   begin
    for j:=1 to n do
     if (j>=i)and(j<=n-i+1)and(a[i,j]<1000)and Pal(a[i,j])then{если условие соблюдено}
      begin
       textcolor(12);{выделим эти числа красным цветом}
       write(a[i,j]:6);
      end
     else
      begin
       textcolor(15);{остальные по умолчанию, обычно белый}
       write(a[i,j]:6);
      end;
    writeln;
   end;
 end;
readln
end.