Найти и вывести на экран сумму нечётных элементов массива и количество отрицательных. Паскаль

program z8;uses crt;var a:array[1..259] of shortint;i,k,n:byte;s:integer;beginclrscr;randomize;write('Vvedi razmernost massiva=');readln(n);for i:=1 to n do begina[i]:=random(100--100+1)+-100;write(a[i]:4);if a[i]<0 thens:=s+a[i];if odd(a[i]) thenk:=k+1;end;writeln;writeln('Сумма отрицательных элементов равна ',s);writeln('Кол-во нечётных элементов равно ',k);readkeyend.