Составьте программку, исполняющую поиск малого нечетного элемента в заданном целочисленном массиве

Program min_mas;
var объявляем переменные которые будем использовать в программке
i,min,max:integer;
a:array[1..50] of integer;
begin
randomize; используя генератор случайных чисел наполняем и выводим на экран массив
for i:=1 to 50 do
begin
a[i]:=random(100);
write (a[i], );
end;
min:=a[1]; Присваиваем наименьшему значению значение первого элемента массива
for i:=1 to 50 do
begin проверяем каждый элемент массива является ли он нечетным и сопоставляем его с первым элементом
if (a[i] mod 2 lt;gt; 0 ) and (a[i]lt;min) then min:=a[i];
end;
writeln;
writeln (Min=,min);
readln;
end.