как решить без условного оператора???

Uses
  Crt;
 
Var
  Rost: array[1..15] of byte;
  new,i,j,c: byte;
 
Begin
  clrscr;
  i:=1;
  while i<=15 do
    begin
      write('rost [',i,'] = ');
      readln(rost[i]);
      if i>1 then
         begin
          if rost[i-1]>rost[i] then i:=i+1 else
             writeln('ne podhodit');
         end else i:=i+1;
    end;
  repeat
    write('rost novogo uchenika = ');
    readln(new);
    c:=0;
    for i:=1 to 15 do
      if rost[i]=new then c:=c+1;
    if c>0 then new:=rost[15];
  until (new>rost[15]) and (new<rost[1]);
  for i:=1 to 15 do
    if rost[i]>new then c:=i+1;
  writeln('zaymet mesto ',c,'.');
  writeln('budet tak:');
  i:=1;
  while i<=15 do
    begin
      if i=c then begin writeln(new); end;
      writeln(rost[i]);
      i:=i+1;
    end;
  readkey;
End.

Uses Crt;
const n=15;
Var
  Rost: array[1..n] of byte;
  mn:set of byte;
  new,i,j,c: byte;
Begin
  clrscr;
  randomize;
  writeln('Рост учеников:');
  rost[1]:=180;
  write(rost[1]:4);
  mn:=[rost[1]];
  for i:=2 to n do
   begin
    rost[i]:=rost[i-1]-random(5)-1;
    write(rost[i]:4);
    mn:=mn+[rost[i]];
   end;
  writeln;
  repeat
    write('rost novogo uchenika ot ',rost[n]+1,' do ',rost[1]-1,' new= ');
    readln(new);
  until not(new in mn)and(new in [rost[n]+1..rost[1]-1]);
  i:=1;
  while rost[i]>new do i:=i+1;
  write('nomer novogo uchenika=',i);
  readkey;
End.