Одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.

Const n=10;
var A:Array[1..10] of integer;
min,max,i,summa:integer;
Begin
For i:=1 to n do
 begin Write('Введите элемент' ,i,': '); Read(a[i]);
 end; 
 min:=a[1];
 for i:=1 to n do
 Begin 
 if a[i]<min then
 begin 
min:=a[i]; 
 end; 
end; 
Writeln('min:',min); 
  max:=a[1];
 for i:=1 to n do
 Begin 
If a[i]>max then 
 begin  max:=a[i]; 
end; 
 end; 
Writeln('max: ',max);  
summa := 0 ;  
  for i:=1 to n do 
begin
if (a[i] mod 2 = 0) then summa := summa + a[i] 
 end; 
  writeln('Сумма четных элементов равна : ', summa); 
  readln;
end.