Пожалуйста в Паскаль помогите работа над ошибками
9 класс

Var
a: array[1..10] of integer;
i, sum, max: integer;
begin
   randomize;
   for i:=1 to 10 do
      a[i] := random(46) - 11;
   sum := 0; max := -12;
   for i:=1 to 10 do
   begin
     if (a[i] mod 2 gt; 0) and (a[i] gt; 0) then
        inc(sum, a[i]);
     if (a[i] gt; max) and (a[i] lt; 0) then
        max := a[i];
   end;
   writeln(sum);
   if max lt;gt; -12 then
      writeln(max)
   else
   writeln(Такого элемента нет);
end.