найти первый четный и последний положительный элементы.

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,i1,ip,k1,k2:byte;
    x:integer;
begin
randomize;
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
writeln;
if a[1] mod 2=0 then i1:=1
else
 begin
  i1:=0;
  i:=1;
  while(i<=n)and(i1=0)do
  if a[i] mod 2=0 then i1:=i
  else i:=i+1;
 end;
if i1=0 then
 begin
  write('В массиве нет четных элементов');
  readln;
  exit;
 end;
if a[n]>0 then ip:=n
else
 begin
  ip:=0;
  while (i<=1)and(ip=0) do
  if a[i]>0 then ip:=i
  else i:=i-1;
 end;
if ip=0 then
   begin
    write('В массиве нет положительных элементов');
    readln;
    exit;
 end;
writeln('Первый четный имеет индекс=',i1);
writeln('Последний положительный имеет индекс=',ip);
if abs(i1-ip)<2 then
 begin
  write('Между первым четным и последним положительным нет элементов для сортировки');
  readln;
  exit;
 end;
if i1<ip then
 begin
  k1:=i1;
  k2:=ip;
 end
else
 begin
  k1:=ip;
  k2:=i1;
 end;
for i:=k1+1 to k2-2 do
for j:=i+1 to k2-1 do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Сортировка между первым четным и последним положительным:');
for i:=1 to n do
write(a[i]:4);
end.