Подсчитать количество строк заданной целочисленной матрицы N*N, являющихся перестановкой чисел 1,2,...,N (вообщем нужно подсчитать кол-во строк в которых числа не повторяются)

за полноценное решение 34 пенкта.

Program s; uses crt; const n=1; Var i,j,otvet,prov:integer; st:array[1..n] of string[n]; a:array[1..n,1..n] of integer;Begin For i:=1 to n do Begin For j:=1 to n do Begin a[i,j]:=random(n+1); Write(a[i,j],' '); End; Writeln; End; For i:=1 to n do For j:=1 to n do st[i]:=st[i]+inttostr(a[i,j]);For i:=1 to n-1 do begin For j:=i+1 to n do if st[i]<>st[j] then prov:=prov+1; if prov=n-i then otvet:=otvet+1; prov:=0; End; Writeln('Ответ = ',otvet+1)End.