помогите сделать задачу по Pascal Указать минимальный нечетный элемент в последовательности, содержащей целые числа.

59 59 37 13 22 72 14 58 82 40
minim ne4etnyj = 13
------------
92 68 45 93 35 93 35 51 99 13
minim ne4etnyj = 13
------------
92 85 13 50 44 37 46 2 60 2
minim ne4etnyj = 13
------------
43 81 30 91 5 10 24 89 93 27
minim ne4etnyj = 5
------------
29 81 23 45 100 70 80 32 97 36
minim ne4etnyj = 23
------------
99 71 17 88 65 4 46 39 20 46
minim ne4etnyj = 17
------------
47 92 24 67 89 62 51 4 51 84
minim ne4etnyj = 47
------------
35 74 96 3 83 86 19 90 86 12
minim ne4etnyj = 3
------------
94 32 82 89 62 52 75 69 68 27
minim ne4etnyj = 27
------------
31 23 66 77 39 11 93 47 7 4
minim ne4etnyj = 7
------------
64 39 37 17 19 80 20 78 37 59
minim ne4etnyj = 17
------------
60 72 30 71 23 81 38 75 59 62
minim ne4etnyj = 23
------------

var i, n, mini, x: byte;
begin
n:=5;
mini:=255;
for i:=1 to n do
begin
x := random (250);
write (x:4);
if odd (x) and (x < mini) then mini :=x;
end;
if mini <> 255 then writeln (#10, 'минимальный нечетный элемент последовательности = ', mini)
else writeln (#10,'нечетные элементы отсутствуют в последовательности');
end.