В трех произвольных целочисленных квадратных матрицах размерности N определить количество строк, содержащих одинаковые э

Program Zadanie63;
type
  TArr = array[1..20,1..20] of integer;
 
procedure vyvod (arr: TArr; narr,marr: integer); // Процедура для вывода элементов на экран.
var
   i,j: integer;  // Промежуточные переменные для организации циклов.
begin
  for i:=1 to narr do
    begin
    for j:=1 to marr do
      Write(arr[i,j]:4);
    writeln;
    end;
end;
 
procedure vvod (var arr: TArr; narr,marr: integer); // Процедура для ввода значений элементов.
var
   i,j: integer;  // Промежуточные переменные для организации циклов.
begin
for i:= 1 to narr do
    for j:= 1 to marr do
      begin
      writeln('Введите элемент ',i,' строки ',j,' столбца.');
      Readln(arr[i,j]);
      end;
end;
 
function povtor(arr: TArr; narr,marr: integer): integer; // Функция для подсчета одинаковых элементов в строках.
var
   i,j,k: integer;  // Промежуточные переменные для организации циклов.
   reg: boolean;    // Промежуточная переменная для регистрации одинаковых элементов.
   count: integer;  // Переменная для хранения значения подсчета количества строк.
begin
count:=0; // Установка счетчика в нуль
for i:= 1 to narr do
  begin
  reg:= false;  // Установка регистрационной переменной в начальное состояние.
  for j:= 1 to marr do
    for k:= 1 to marr do
      if (j <> k) and (arr[i,j] = arr[i,k]) then  // Условие определения одинаковых элементов.
         reg:= true;
  if reg then
    inc(count); // Подсчет количества регистраций.
  end;
povtor:= count;
end;
 
var
  i: integer; // Промежуточная переменная для организации циклов.
  n: integer; // Переменная для хранения значения размерности матриц.
  a: array [1..3] of TArr; // Переменная для хранения массива матриц.
begin
// Ввод значений элементов в матрицы.
writeln('Введите размерность матриц (не более 20)');
Readln(n);
for i:= 1 to 3 do
 vvod(a[i],n,n);
// Вывод матриц на экран вместе с результатами подсчета.
for i:= 1 to 3 do
 begin
 vyvod(a[i],n,n);
 writeln('Количество строк с элементами c повторяющимися значениями: ',povtor(a[i],n,n));
 writeln;
 end;
 
Readln;
end.