С клавиатуры последовательно вводятся 15 разных целых чисел, которые размещаются в массиве. Напишите программу, которая

var
min, i, x : integer; // объявляем переменные целочисленного типа.
arr : array [1..15] of integer; // объявляем массив.
Begin
writeln('Введите 15 целых чисел для заполнения массива:'); // вывод строки на экран.
for i:= 1 to 15 do // начало цикла.
begin
readln(arr[i]); // заполняем элемент массива.
if ((arr[i] mod 5 = 0)) then // если элемент кратный 5.
begin
if (x = 0) then min := arr[i]; // первый элемент, кратный 5 считаем минимальным.
if (arr[i] < min) then min := arr[i]; // сравниваем текущий элемент с минимумом.
x := x + 1; // считаем количество элементов, кратных 5.
end;
end;
writeln('Количество элементов в массиве, кратных 5 равно: ', x, ' ,минимальный из них: ',min);
End.