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

program z8;

uses crt;

var a:array[1 ... 259] of shortint;

i, k, n:byte;

s:integer;

begin

clrscr;

randomize;

write ('Vvedi razmernost massiva=');

readln (n);

for i:=1 to n do begin

a[i]:=random (100--100+1) + - 100;

write (a[i]:4);

if a[i]<0 then

s:=s+a[i];

if odd (a[i]) then

k:=k+1;

end;

writeln;

writeln ('Сумма отрицательных элементов равна ', s);

writeln ('Кол-во нечётных элементов равно ', k);

readkey

end.