можете помочь написать программу процедурой

uses crt;

const n=5;

var a:array[1..n]of integer;

i,j,k:integer;

begin

clrscr;

writeln('Введите ',n,' чисел: ');

for i:=1 to n do

read(a[i]);

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('Одинаковые числа есть. ')

else if k=0 then writeln('Одинаковых чиесл нет. ');

end.