Составьте программку,которая исполняет массив а(1..10) случайными целыми числами в спектре

Program swap;
const
  N = 10;
var
  a: array [1..N] of integer;
  i, temp: integer;
begin
  randomize;
  writeln('исходный массив: ');
  for i := 1 to N do
    begin
      a[i] := Random(10);
      write(a[i], ' ');
    end;
  writeln;
  i := 1;
  while i lt;= 9 do
    begin
      temp := a[i];
      a[i] := a[i+1];
      a[i+1] := temp;
      i := i + 2;
    end;
  writeln('приобретенный массив: ');
  for i := 1 to N do
      write(a[i], ' ');
end.