найти наибольший элемент из элементов одномерного массива,которые имеют парный номер

[soblaznitel]

нужна помощь в поиске ошибки

Условие:
найти наибольший элемент из элементов одномерного массива,которые имеют парный номер.
Проверить является ли он единственным

Сам смог написать только такое:

program prim1;
uses crt;
var max:real;
M:array [ 1..50 ] of integer;
i,n,K2:integer;
begin
clrscr;
writeln(' zadaite elementu massiva: ');
readln(n);
K2:=0;

for i:=1 to n do
begin
writeln(M[', i ,' ]+');
readln(M[ i ]);
if M[ i ] mod 2 = 0 then
K2:=K2-1;end;
if M[ i ]>max then max:=M[ i ];
for i:-1 to n do
begin max:=M[ i ];
end;
writeln(' max=', max:5:2);
end;
readkey;
end.























<a href=http://www.tvshowsportal.com/ >episodes online</a>