куда именно вписывать блок процедурыы

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(ij)then {если совпадабт, а номера разные}
begin
k:=k+1; {считаем}
end;
if k>0 then writeln('Одинаковые числа есть. ')
else if k=0 then writeln('Одинаковых чиесл нет. ');
end.