СРОЧНО!!!!!Дам 20 поинтов!!!!Составить программу ввода с клавиатурой целых чисел от 1 до 10 и вывода на экран элементов массива с нечетными значениями

var
a:array[1..10]of integer;
i:integer;
Begin
For i:= 1 to 10 do
  begin
    Read(a[i]);
    if a[i] mod 2 <>0 then Write(a[i], ' ');
  end;
end.



//Более современное решение




Begin
var a:= ReadlnString('Введите массив').ToIntegers;
SetLength(a, 10);
a.Where(t->t.isOdd).Println;
end.