Одномерные массивы

[Тан10шка]

Задан массив S (12). Среди отрицательных четных элементов найти второй элемент и
заменить его максимальным среди положительных элементов, имеющих нечетные индексы.
Вывести исходный и преобразованный массивы, а также второй элемент среди отрицательных
четных элементов и максимальный среди положительных с нечетными индексами.

[J.B.DiGriz]

пиши в скайп или контакт - сделаю)

[Hacker19_90]

program example;
uses
    Crt;
const
    count = 12;
var
    s: array[1..12] of integer;
    i: byte;
    max, two: integer;
begin
    clrscr;
    max := -1;
    two := 0;
    Writeln ('It is random matrix:');
    randomize;
    for i := 1 to count do
    begin
        s[i] := random(100) - 50;
        if (s[i] < 0) and (not(odd(s[i])))then 
            if two = 0 then two := -1
            else if two = -1 then two := i;
        if odd(i) then 
            if s[i] > max then max := s[i];
        Write (s[i], ' ');
    end;
    Writeln;
    if (two in [0, -1]) or (max = -1) then
        Writeln ('Один из элементов не найден!!!')
    else
    begin
         Writeln ('Найденный отрицательный чётный: ', s[two]);
         Writeln ('Найденный максимальный положительный: ', max);
         s[two] := max;
         Writeln ('После замены:');
         for i := 1 to count do
             Write (s[i], ' ');
         Writeln;
    end;
    ReadKey;
end.