Для каждой строки массива определить количество элементов, в разряде единица которых встречается заданная цифра

uses crt;
const count=50;
type arr=array[1..count,1..count] of integer;
var vec:array[1..count] of integer;
i,j,n,x,k:integer;
mas:arr;
 
procedure inputmas(var mas:arr; n:integer);
var
 i,j:integer;
begin
for i:=1 to n do
  for j:=1 to n do mas[i,j]:=random(50);
end;
 
procedure outputmas(mas:arr; n:integer);
var i,j:integer;
begin
for i:=1 to n do begin
  for j:=1 to n do write(mas[i,j]:4);
writeln;
end;
end;
 
function b(a,c:integer):boolean;
var i:integer;
s,st:string;
bb:boolean;
begin
str(a,st);
str(c,s);
if st[length(st)]=s[1] then bb:=true else bb:=false;
b:=bb;
end;
 
begin
clrscr;
randomize;
write('n: ');
readln(n);
repeat
write('x: ');
readln(x);
until x in [1..10];
inputmas(mas,n);
outputmas(mas,n);
for i:=1 to n do begin
  k:=0;
  for j:=1 to n do if b(mas[i,j],x) then inc(k);
  vec[i]:=k;
  end;
writeln;
for i:=1 to n do writeln('dlya ',i,' stroki k=',vec[i]);
readkey;
end.