ПОМОГИТЕ ПОЖАЛУЙСТА!!!

1 ЗАДАЧА:
Пользователь вводит 5 чисел,необходимо вывести минимальное отрицательное число.

2 ЗАДАЧА:
Пользователь вводит 10 чисел, необходимо вывести максимальное четное число.

/Паскаль/

Задача 1:Program Test1; Var min, i: integer; num: array[1..5] of integer; Begin Writeln('Введите 5 чисел (через пробел): '); Readln(num[1], num[2], num[3], num[4], num[5]); min := 0; for i := 1 to 5 do begin if (num[i] < min) then min := num[i]; end; if (min < 0) then begin Writeln(); Writeln('Min = ', min); end else begin Writeln(); Writeln('Вы не ввели отрицательных чисел!'); end; End.---------------------------------Задача 2:Program Test2; Var max, i: integer; num: array[1..10] of integer; Begin Writeln('Введите 10 чисел (через пробел): '); Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]); max := 0; for i := 1 to 10 do begin if (num[i] > max) then begin if (num[i] mod 2 = 0) then max := num[i]; end; end; if (max > 0) then begin Writeln(); Writeln('Max = ', max); end else begin Writeln(); Writeln('Вы не ввели четных положительных чисел!'); end; End.