Example program SORTINTO.PAS

 
program sortinto; 

uses 
  crt, math1; 

const 
  MaxNum = 17; 

var 
  ra      : array[1..MaxNum] of real; 
  raix    : array[1..MaxNum] of integer; 
  newval  : real; 
  cnt     : integer; 
  index   : word; 
  EndProg : boolean; 

procedure DisplayArray; 
(*-------------------*) 

var 
  i : integer; 

begin 
gotoxy (7,1); 
write ('sorted Array          Index'); 
for i:=1 to MaxNum do 
  begin 
  gotoxy (10,i+1); 
  write (ra[i]:10:2, '   ',raix[i]:10); 
  end; 
end; 

begin 
ClrScr; 
for cnt:=1 to MaxNum do 
  begin 
  ra[cnt] := 1000.0*random; 
  raix[cnt] := cnt; 
  end; 
SortArray (addr(ra),MaxNum,rnum,true); 
DisplayArray; 
EndProg := false; 
repeat 
  gotoxy (1,23); DelLine; DelLine; 
  gotoxy (1,24); 
  write ('(ABORT: Enter any character)'); 
  gotoxy (1,23); 
  write ('Enter a number to be sorted into the array: '); 
  {$I-} read (newval); {$I+} 
  if IoResult <> 0 
    then EndProg := True 
    else begin 
         index := SortIntoArray (addr(ra),MaxNum,rnum, 
                                 addr(newval),true,true); 
         if index > 0 
           then begin 
                inc (cnt); 
                InsertIntoArray (addr(raix),MaxNum,inum, 
                                 addr(cnt),index); 
                DisplayArray; 
                end 
           else begin 
                gotoxy (1,23); DelLine; DelLine; 
                write ('Number to large - press <ESC> to continue'); 
                repeat until readkey = #27; 
                end; 
         end; 
until EndProg; 
end.