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

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.