Помогите пожайлуйста написать программу на паскале!

Составить функцию, возвращающую значение истина, если одномерный массив не содержит повторяющихся чисел, и ложь - в противном случае. Использовать составленную функцию для определения в матрице V(l,m), l<=12, m<=14 столбцов, целиком состоящих из различных чисел, и переписать найденные столбцы в новую матрицу без пропусков.
вот сама прога. знаю как делать функцию, но немогу ее дальше использовать в матрице.
Program pp;
const
lmax=12;
mmax=14;
type
tmas=array[1..lmax] of integer;
var
T:tmas;
i,j,l,m,n,R: integer;
V:array[1..lmax,1..mmax] of integer;
function Test(T:tmas):integer;
var
p,q: integer;
b: integer;
begin
b:=1;
for p:=1 to l-1 do
for q:=p+1 to l do
if T[p]=T[q] then
b:=0;
Test:=b;
end;
begin
writeln('Введите количество строк и столбцов');
readln(l,m);
writeln;
for i:=1 to l do
begin
for j:=1 to m do
read(V[i,j]);
readln;
end;
writeln;
for i:=1 to l do
begin
for j:=1 to m do
write(V[i,j]:4);
writeln;
end;
writeln;
n:=0;
for j:=1 to m do
if Test(T)=0 then
n:=n+1;
V[i,j]:=V[i+1,j];
writeln;
for i:=1 to l do
begin
for j:=1 to m do
write(V[i,j]:4);
writeln;
end;

end.