Переставить в обратном порядке все положительные компоненты вещественного массива

uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,k,i1,i2:integer;
    x:real;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=10*random-3;
  write(a[i]:5:1);
 end;
writeln;
writeln;
k:=0;{проверим стоит ли заниматься обменом}
for i:=1 to n do
if a[i]>0 then k:=k+1;
if k<2 then
 begin
  write('В массиве нет пар положительных элементов!');
  readln;
  exit;
 end;
i1:=1;i2:=n;{начало и конец}
repeat
for i:=i1 to i2 do
if a[i]>0 then
 begin
  i1:=i;{ищем первый положительный с начала}
  break;
 end;
for i:=i2 downto i1 do
if a[i]>0 then
 begin
  i2:=i;{то же с конца}
  break;
 end;
if i1<=i2 then{если не прошли середину, обмениваем элементы}
 begin
  x:=a[i1];
  a[i1]:=a[i2];
  a[i2]:=x;
 end;
i1:=i1+1;{начало вперед}
i2:=i2-1;{конец назад}
until i2<i1;{все поменяли, встретились}
writeln('Перестановка положительных:');
for i:=1 to n do
write(a[i]:5:1);
readln
end.