Массивы

[Vitalik1]

Не учитывает ПЕРВЫЙ ЭЛЕМЕНТ!?

Написать программу которая вводит с клавиатуры 10 чисел действительных, сохраняет их, а затем определяет номера элементов массива, значение которых равно значение второго элемента массива. Если таких элементов нет, то вывести соответствующее сообщение.
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var t:array [1..10] of real;
i:integer;
e:boolean;
begin
for i:=1 to 10 do
begin
write('Vvedit element ');
readln(t[i]);
end;
e:=false;

for i:=1 to 10 do
begin
if (t[i]=t[2]) and (i>2) then
begin
writeln('nomer masuvy:',i);
e:=true
end;
end;
if not e then write('nema');
readln;

end.

[Mad_Cat]

if (t[i]=t[2]) and (i<>2) then

[Alex11223]

and (i>2)

А сами как думаете как исправить, чтобы учитывало номер и 1, и 3-10?)

[Vitalik1]

спасибо все работает

[Vitalik1]

такая мелоч а я голову второй день ломаю