Сложные циклы. обработка массивов.создание и использование unit-ов.

[Ника-Вероника]

Дана матрица А порядка n. Определите количество строк матрицы, элементы которых представляют перестановки чисел от 1 до n.
У меня было так:
Program L8_28;
uses
crt, Matrix;
const
maxn=100;
var
s,k,n,i,j: integer;
Matrix: array[1..maxn,1..maxn] of integer;
unit Matrix;
interface
type
Matrix: array[1..maxn,1..maxn] of integer;
procedure vvod(var n: integer);
procedure koll(var s:integer);
Implementation
procedure vvod(var n: integer);
var
f1: text;
i,j,n: integer;
begin
assign(f1,'lr8_28.txt');
reset(f1);
readln(f1,n);
for i:=1 to n do
for j:=1 to n do
read(f1,a[i,j]);
close(f1);
end;

procedure koll(var s:integer);
var
i,j,k: integer;
all_ok:boolean;
begin
for i:=1 to n do
begin
for k:=1 to n do
begin
all_ok:=false;
for j:=1 to n do
if a[i,j] = k then
all_ok:=true;
if not all_ok then
break
else
inc(s);
end;
end;
end;

begin
s:=0;
clrscr;
vvod(k);
koll(s);
writeln('s = ',s);
readkey;
end.
Мне сказали, что не правильно. Что нужно:
...........
for k:=1 to n do
begin
kol1:=0;
for j:=1 to n do
if a[i,j]=k then
inc (kol1);
if kol1=n then
да
else
нет

[Hacker19_90]

Эм... а суть то в чём?