Написать программу, которая для введенного числа N формирует двумерный массив заданного в варианте вида

program 2D_Array;
uses  crt;
label sle;
const n=4;
      par=(n*4);
type matriz=array[1..n,1..n] of integer;
var i,j,i1,j1,kol,kolo,l,k:integer;
    mas:matriz;
    im:array[1..par] of integer;
procedure vvod(var vmas:matriz);
         begin
          clrscr;
           writeln('Вводим элементы массива , размерность [',n,',',n,']');
           for i:=1 to n do
            for j:=1 to n do
             begin
              write('Введите элемент [',i,',',j,']=');
              readln(vmas[i,j]);
             end;
         end;
procedure print(vmas:matriz);
         begin
          writeln('Ваш массив имеет вид.');
             for i:=1 to n do
              begin
               for j:=1 to n do
               begin
               write(' ',vmas[i,j],' ');
               end;
               writeln;
              end;
         end;
begin
 vvod(mas);
 print(mas);
 for i:=1 to par do im[i]:=0;
 k:=1;
 kolo:=0;
 for i:=1 to n do
  for j:=1 to n do
   begin
    for l:=1 to par do if im[l]=mas[i,j] then goto sle;
    kol:=0;
    for i1:=1 to n do for j1:=1 to n do if mas[i,j]=mas[i1,j1] then kol:=kol+1;
    if kol>1 then
     begin
      kolo:=kolo+kol;
      im[k]:=mas[i,j];
      k:=k+1;
     end;
    sle:end;
 writeln('Количество чисел, входящих в массив больше одного раза(без нулей) =',kolo);
 writeln('Программа закончена , нажмите Enter.');
 readln;
end.