Даны действительные числа от а1 до а20.Получить а1, а11, а3, а13,…, а9, а19.- Pascal(Паскаль)

const
n=20;
var
 i:integer;
 a:array[1..n] of integer;
begin
 for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln('------');
 i := 1;
 while ((i+10)<=20) do begin
  Write(a[i], ' ', a[i+10],' ');
  i := i + 2;
 end;
 WriteLn;
end.