Задан двумерный массив целых чисел размерности NхN. Найти сумму элементов массива расположенных ниже главной диагонали в записи которых в старшем разряде имеется заданная цифра Х — Pascal(Паскаль)

uses crt;
const nmax=20;
function Perv(n:integer;k:byte):boolean;
var m:integer;
begin
m:=abs(n);
while m>9 do
m:=m div 10;
if m=k then Perv:=true else Perv:=false;
end;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,x:byte;
    sm,k:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
repeat
write('Цифра от 1 до 9 x=');
readln(x);
until x in [1..9];
sm:=0;k:=0;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(90)+10;
     if (j<i)and Perv(a[i,j],x)then
      begin
       k:=1;
       sm:=sm+a[i,j];
       textcolor(12);
       write(a[i,j]:4);
      end
     else
      begin
       textcolor(15);
       write(a[i,j]:4);
      end;
     end;
   writeln;
 end;
writeln;
if k=0 then write('Чисел с первой цифрой ',x,' ниже гл. диагонали нет!')
else write('Сумма чисел с первой цифрой ',x,' ниже гл. диагонали=',sm );
readln
end.