составьте программу,которая заполняет...

составьте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 1 до 10 и выводит на экран последний элемент с нечётнымзначением и его индекс

 

var
  a: array[1..10] of integer;  //Массив а
  i, index: integer;  //index - индекс последнего элемента с нечетным значением
 
begin
  write('Исходный массив:  ');
  for i:= 1 to 10 do  {Заполняем массив элементами в диапазоне [1..10], печатаем его и определяем индекс последнего элемента с нечетным значением}
  begin
    a:= random(10) + 1;
    write(a, '  ');
    if a mod 2 = 1 then index:= i;
  end;
  writeln;
  writeln('Последний элемент с нечетным значением:  a[', index, '] = ', a[index]);  
end. 
Отметь решение как лучшее)