Построить вектор, каждый элемент которого равен наибольшему количеству равных элементов в соответствующей строке матрицы

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
const
  n=5;
 
type
  telem=integer;
  mas=array[1..n] of telem;
  matr=array[1..n]of mas;
//-------------------------------//
Procedure Inputmatr(var a:matr);
{ввод элементов матрицы}
var i,j: integer;
begin
  randomize;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  writeln;
end;
//------------------------------//
Function NaibCol(i:integer):telem;
var
   a:matr;
   j,p,z,c,l:integer;
begin
  p:=0;
  c:=1;
  z:=0;
For j:=1 to n do
  begin
    p:=a[i,j];
    For l:=j+1 to n do
    begin
      if (a[i,l]=p) then
      inc(c);
    end;
      if z < c then
               z:=c;
               c:=1;
  end;
NaibCol:=z;
end;
//------------------------------//
Var a:matr;
    b:array[1..n] of telem;
    i,j:integer;
Begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);
  writeln('Матрица А:');
  Inputmatr(a);
  writeln;
  writeln('Вектор элементов,каждый из которых равен наибольшему количеству равных элементов в соответствующей строке матрицы: ');
  for j:=1 to n do
  begin
     b[j]:=NaibCol(j);
     write(b[j]:4);
  end;
  readln;
End.

Function NaibCol(i:integer; var a:matr):telem;
var
    j,p,z,c,l:integer;
begin
  p:=0;
  c:=1;
  z:=0;
For j:=1 to n do
  begin
    p:=a[i,j];
    c:=1;
    For l:=j+1 to n do
    begin
      if (a[i,l]=p) then
      inc(c);
    end;
      if z < c then
      z:=c;              
  end;
NaibCol:=z;
end;

 writeln('Вектор элементов,каждый из которых равен наибольшему количеству равных элементов в соответствующей строке матрицы: ');
  for j:=1 to n do
  begin
     b[j]:=NaibCol(j,a);// вызов функции NaibCol()
     write(b[j]:4);
  end;