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

Формулировка задачи:

Помогите пожалуйста решить задачу с помощью процедуры "Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением."

Решение задачи: «Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением»

Листинг программы

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.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с консольным вводом-выводом.
Затем определяется константа n, которая определяет количество чисел, которые нужно ввести.
Далее объявляются переменные a, i, j, k типа integer, которые будут использоваться для хранения чисел и выполнения операций.
В цикле for происходит ввод n чисел с клавиатуры. Каждое число считывается в переменную a[i] с помощью функции read.
После ввода чисел инициализируется переменная k, которая будет использоваться для подсчета количества одинаковых чисел.
Затем начинается вложенный цикл for, который проходит по всем элементам массива a от i до n.
Внутри этого цикла проверяется условие (a[i]=a[j])and(i<>j), которое проверяет, совпадают ли два числа и отличаются ли их индексы. Если это условие выполняется, то считается, что числа одинаковые, и переменная k увеличивается на 1.
После окончания внутреннего цикла проверяется значение переменной k. Если k больше 0, то выводится сообщение Одинаковые числа есть., что означает, что в массиве есть числа, которые встречаются более одного раза. Если k равно 0, то выводится сообщение Одинаковых чисел нет., что означает, что в массиве нет чисел, которые встречаются более одного раза.
В конце кода выводится строка Конец, чтобы показать, что программа завершила работу.