В одномерном целочисленном массиве поменяйте местами первый нечетный и последний четный элементы.

program nomer_1;
 const n=20; 
var mas: array[1..n] of integer;
i,l,m: integer;
begin
randomize;   
for i:=1 to 20 do begin
mas[i]:=random(10)+1;

const n = 20;
var mas: array[1..n] of integer;
    i, f, l, t: integer;
begin
  randomize;
  f := 0;
  l := 0;
  writeln('Исходный массив:');
  for i := 1 to n do
    begin
      mas[i] := random(10) + 1;
      write(mas[i]:3);
      if (f = 0) and (mas[i] and 1 = 1)
        then f := i
        else if mas[i] and 1 = 0
          then l := i
    end;
  writeln;
  if f * l <> 0
    then begin
      writeln('Номер первого нечётного элемента: ', f);
      writeln('Номер последнего чётного элемента: ', l);
      t := mas[f];
      mas[f] := mas[l];
      mas[l] := t;
      writeln('Преобразованный массив:');
      for i := 1 to n do write(mas[i]:3);
      writeln
    end
    else if f = 0
      then writeln('Массив не содержит нечётных элементов')
      else writeln('Массив не содержит чётных элементов');
  readln
end.