ПОЖАЛУЙСТА, ПОМОГИТЕ. ОЧЕНЬ НАДО!!!!
одномерный массив размером [10]заполнить числами с клавиатуры, найти max и min элементы и сумму четных элементов массива.

Программа работает в соответствии с заданием.

const n=10;var A:Array[1..10] of integer;min,max,i,summa:integer;BeginFor 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 beginif (a[i] mod 2 = 0) then summa := summa + a[i]  end;    writeln('Сумма четных элементов равна : ', summa);   readln;end.