Решить в паскале: 1. найти наилучший результат прыжков в длину среди 9 участников. 2. из n введенных чисел найти минимальное значение среди четных элементов

Program n1;
var   
    i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if x>n then n:=x;
end;
writeln(n);
end.

program n1;
var    
    i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.