[Slanj]

У меня вроде твоя заработала.
На, вот эта работает
program tipavot;
uses crt;
VAR
a: array[1..20] of Integer;
i,
Count: Integer;

BEGIN
clrscr;
Randomize;
for i := 1 to 20 do
a[i] := Random(255)+1;
Count := 0;
for i := 1 to 20 do
begin
if (a[i] mod 2) <> 0 then
begin
Inc(Count);
Write(a[i],' ' );
end;
end;
WriteLn;
WriteLn('Naideno ',Count,' nechetnih chisel.' );
ReadLn;
END.