Программа, которая проверяет, есть ли во введенном с клавиатуры одномерном массиве элементы с одинаковыми значе

uses crt;
const n=5;
var a:array[1..n]of integer;
i,j,k:integer;
begin
clrscr;
writeln('Vvedite ',n,' chisel:');
for i:=1 to n do
read(a[i]);//вводим числа через пробел
readln;  //жмем Enter
k:=0;
for i:=1 to n do
for j:=i to n do
if (a[i]=a[j])and(i<>j)then//если совпадабт, а номера разные
     begin
        k:=k+1;//считаем
     end;
if k>0 then writeln('Odinakovye chisla est!')
else if k=0 then writeln('Odinakovyh chisel net!');
readln
end.

uses crt;
const n=4;
var a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
clrscr;
writeln('Vvedite ',n*n,' chisel:');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
readln;
clrscr;
writeln('Matrica:');
for i:=1 to n do
     begin
       for j:=1 to n do
       write(a[i,j]:3);
       writeln;
    end;
k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=a[j,i] then//если есть одинаковые симметричные значения
      begin
        k:=k+1;//считаем
      end;
if k=n*n then writeln('Matrica simmetrichna!')//если все - да
else if k<n*n then writeln('Matrica ne simmetrichna!');//если не все - нет
readln
end.

uses crt;
const n=5;
m=6;
var a:array[1..n,1..m]of integer;
i,j:integer;
begin
clrscr;
randomize;
writeln('Ishodnaja matrica:');
for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(10);
          write(a[i,j]:3);
        end;
     writeln;
   end;
writeln;
for i:=1 to n-1 do //от первой до предпоследней
for j:=1 to m do
a[i,j]:=a[i,j]-a[n,j];//вычитаем
writeln('Rezultat:');
for i:=1 to n do
     begin
       for j:=1 to m do
       write(a[i,j]:3);
       writeln;
    end;
readln
end.

uses crt;
var a,b,h,y,x:real;
i:integer;
begin
clrscr;
write('Vvedite a=');readln(a);
write('Vvedite b>a =');readln(b);
write('Vvedite shag h=');readln(h);
writeln;
writeln('Rezultat:');
writeln('x':4,'y':10);
x:=a;
while x<=b do
    begin
       y:=cos(x);
       writeln(x:6:2,y:10:3);
       x:=x+h;
    end;
readln
end.

program zadbl;
uses crt;
var
a,b,h,y:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite h');
readln(h);
while a<=b do begin
y:=a*sin(a);
write(a:3:3);
write(' ');
write(y:3:3);
writeln;
a:=a+h;
end;
readln;
end.