Матрицы

uses crt;
const nmax=20;
type mas=array[1..nmax] of byte;//тип массив-строка матрицы
     matr=array[1..nmax] of mas;//тип матрица-массив строк
function Peres(v:mas;n:byte):boolean;//функция определения перестановки
var m:set of byte;//множество для выбора разных чисел
    i,k:byte;
begin
m:=[];k:=0;
for i:=1 to n do
if (v[i] in [1..n])and not(v[i] in m) then//если число из интервала 1..n и его еще нет в множестве
 begin
  k:=k+1;//считаем
  m:=m+[v[i]];//добавляем в множество
 end;
if k=n then Peres:=true//если все попали в множеств-, это перестановка
else Peres:=false;//иначе нет
end;
 
var a:matr;
    n,i,j,k:byte;
begin
clrscr;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n*n,' элементов матрицы:');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j] );
 end;
clrscr;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
writeln;
k:=0;
for i:=1 to n do//идем по строкам матрицы
if Peres(a[i],n)then k:=k+1;//считаем строки-перестановки
write('Количество строк-перестановок=',k);
readln
end.