Задан двумерный массив A целых чисел(таблица) размерности (NxN). Определить количество элементов-чисел в записи которых в старшем разряде встречается заданная цифра L — Pascal(Паскаль)

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; l,i,j,p,k: byte; m,ch: string;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(41);
a[i,j]:=a[i,j]-20;
write(a[i,j]:5);
end;
writeln;
end;
write('введите значение параметра l: ');
readln(l);
for i:=1 to n do
for j:=1 to n do
begin
str(a[i,j],m);
if a[i,j]>=0 then p:=1
else p:=2;
str(l,ch);
if m[p]=ch then inc(k);
m:='';
end;
writeln('кол-во элементов, в старшем разряде которых цифра ',l,' равно ',k);
end.