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

[Slavon-851]

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

Составить функцию, возвращающую значение «истина», если одномерный массив не содержит повторяющихся чисел, и «ложь» в противном случае. Использовать составленную функцию для определения в матрице V(l,m),l≤12,m≤14, столбцов, целиком состоящих из различных чисел, и переписать найденные столбцы в новую матрицу без пропусков.

 

[Vladimir_S]

Составить функцию, возвращающую значение «истина», если одномерный массив не содержит повторяющихся чисел, и «ложь» в противном случае. Использовать составленную функцию для определения в матрице V(l,m),l≤12,m≤14, столбцов, целиком состоящих из различных чисел, и переписать найденные столбцы в новую матрицу без пропусков.

Да как нефиг делать!

Const
 L=10; {Number of lines}
 M=14; {Number of columns}

Type
 Matr=Array[1..L,1..M] of Integer;
 Matr_T=Array[1..M,1..L] of Integer;
 Vect=Array[1..L] of Integer;

Var
 V:Matr;
 V_T:Matr_T;
 W:Matr;
 W_T:Matr_T;
 i,j,N:Byte;

Function Test(T:Vect):Boolean;
var
 p,q:byte;
 b:boolean;
begin
 b:=true;
 for p:=1 to L-1 do
  for q:=p+1 to L do
   if T[p]=T[q] then b:=false;
 Test:=b;
end;

Begin
 Randomize;
 for i:=1 to L do
  begin
   for j:=1 to M do
    begin
     V[i,j]:=Random(100);
     V_T[j,i]:=V[i,j];
     write(V[i,j]:4);
    end;
   writeln;
  end;
 writeln;
 N:=0;
 for i:=1 to M do
  if Test(V_T[i]) then
   begin
    Inc(N);
    for j:=1 to L do
     W_T[N][j]:=V_T[i][j];
   end;
 for i:=1 to N do
  for j:=1 to L do
   W[j,i]:=W_T[i,j];
 for i:=1 to L do
  begin
   for j:=1 to N do write(W[i,j]:4);
   writeln;
  end;
 Readln
End.