Найти элементы массива, принадлежащие заданному диапазону чисел - Turbo Pascal

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

Составить постановку, алгоритм и в PASCALе программу поиска лежащих в пределах от 1976 до 2045 элементов массива Y из 12 чисел. Значения элементов указать с клавиатуры, помогите, это срочно! Приложу то, что я написал, но где-то ошибка, помогите

program example;
 
uses crt; 
 
var 
i: array[1..12] of real;
s: real;
y: integer;
 
begin 
 clrscr;
 writeln('Vvedite elementi massiva');
 for y:=1 to 12 do 
  begin 
   i[y]:= y+sin(y)/cos(y);
   write(i[y]:s:2,'');
   readln;
   writeln;
  end;
    
   s:=0;
   for y:=2 to 11 do 
   if(i[y]>1976) and (i[y]>2045) then 
   s:=s+i[y];
  writeln('summa=',s:6:2);
  readln
 end.

Решение задачи: «Найти элементы массива, принадлежащие заданному диапазону чисел»

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

const n=12;
var y:array[1..n] of integer;
    i,k:integer;
begin
writeln('Введите ',n,' натуральных чисел, в том числе числа из диапазона [1976..2045]');
for i:=1 to n do
readln(y[i]);
writeln('Числа  из диапазона [1976..2045]');
k:=0;
for i:=1 to n do
if (y[i]>=1976)and(y[i]<=2045)then
 begin
  k:=1;
  write(y[i],' ');
 end;
if k=0 then write('Таких чисел нет');
end.

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

В начале кода объявляются переменные: n, y, i, k. Переменная n инициализируется значением 12. Переменная y объявляется как массив целых чисел, который может вместить до 12 элементов. Переменные i и k инициализируются целочисленными значениями.
Затем выводится сообщение, предлагающее пользователю ввести 12 натуральных чисел, включая числа из диапазона от 1976 до 2045.
Далее идет цикл for, который проходит по каждому числу в массиве y. Внутри цикла считывается ввод пользователя.
После завершения цикла выводится сообщение, указывающее, что числа из указанного диапазона были найдены.
Если после выполнения всех циклов переменная k осталась равной 0, то выводится сообщение о том, что таких чисел нет.