программа находит наибольшее чётное число в данном одномерном массиве целых чисел

[katya111]

как вывести наибольшее чётное число в одномерном масстве целых чисел?
эта программа выводит только наибольшее число
program pr1;
var
n,m,i:integer;
A:array[1..20] of integer;
begin
writeln('Введите количество элементов');
readln(n);
for i:=1 to n do
begin
A[i]:=RANDOM(101)-50;
write(A[i]:4);
if A[i] mod 2=0 then m:=m+1
end;
writeln('Исходный:');
for i:=1 to n do
begin
write(A[i]:7);
end;
m:=A[1];
for i:=1 to n do
begin
if A[i]>m then m:=A[i];
end;
writeln;
writeln('Наибольшее чётное число массива:', m);

end.

[Vanta11a]

if A[i]>m then m:=A[i];

Заменить на

if (A[i]>m) and (A[i] mod 2 = 0) then m:=A[i];

[katya111]

всё равно через раз выводит нечётное число

[Vanta11a]

Вероятно, потому что 1й элемент массива максимален и нечетен.

Попробуйте

m:=A[1];

заменить на

m:=-900000;

[katya111]

спасибо !