Задачи на многомерные массивы и разработка программ с подпрограммами

uses crt;
var a:array[1..100,1..50] of integer;
    b:array[1..5000] of integer;
    n,m,i,j,p,q,k,k1:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк, не более 100 n=');
readln(n);
until n in [1..100];
repeat
write('Количество столбцов, не более 50 m=');
readln(m);
until m in [1..50];
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
k:=0;
for i:=1 to n do{смотрим элементы матрицы}
for j:=1 to m do
 begin
  k1:=0;
  for p:=1 to k do{проверяем массив}
  if a[i,j]=b[p] then k1:=k1+1;{если в массиве есть такой элемент считаем}
  if k1=0 then{если нет}
   begin
    k:=k+1;{увеличиваем счетчик разных элементов}
    b[k]:=a[i,j];{добавляем элемент матрицы в массив}
   end;
 end;
write('K=',k);
readln
end.

uses crt;
const n=5;
function Fx(x:real):real;
begin
 FX:=sqr(sin(2*x))/cos(2*x);
end;
function Trap(x1,x2,e:real):real;
var
  x3,i:real;
  c:longint;
begin
i:=0;
for c:=1 to round(abs(x2-x1)/e) do
 begin
  x1:=Fx(x1+c*e);
  x2:=Fx(x1+c*e+e);
  if x2>x1 then x3:=x1 else x3:=x2;
  i:=i+abs(x2-x1)*e+abs(x3)*e;
  end;
Trap:=i;
end;
var c:array[1..n,1..n] of real;
    e:real;
    i,j:byte;
begin
clrscr;
write('Введите точность вычисления интеграла e=');
readln(e);
writeln('Maтрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=Trap(i/20,i+j/20,e);
    write(c[i,j]:9:3);
   end;
  writeln;
 end;
readln
end.

uses crt;
var a:array[1..100,1..50] of integer;
    n,m,i,j,sum,k,p:integer;
    l:boolean;
begin
clrscr;
randomize;
repeat
write('Количество строк, не более 100 n=');
readln(n);
until (n<=100)and(n>=1);
repeat
write('Количество столбцов, не более 50 m=');
readln(m);
until (m<=50)and(m>=1);
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
 
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
 
 
 
sum:=0;
for i:=1 to n do{смотрим элементы матрицы}
for j:=1 to m do
begin
 l:=false;
 for k:=1 to i do
  begin
  if (k<>i)and(l=false)then
   for p:=1 to m do
   if (a[i,j]=a[k,p])then
    l:=true;
  if (k=i)and(l=false) then
   for p:=1 to j do
     if (a[i,j]=a[k,p])and(p<>j)then
    l:=true;
  end;
if l=false then sum:=sum+1;
end;
write('sum=',sum);
readln
end.