[PASCAL]Penentuan nilai terbesar dalam sebuah larik

Pencarian angka terbesar dari larik serta mencari posisi nilai terbesar tersebut pada larik ke berapa saja

program la;
uses crt;

var
 larik : array[1..9] of integer;
 i,x, hi : integer;
 xx, posisi : string;

begin
 for i:= 1 to 9 do
 begin
  write('Masukkan angka ke-', i, ' : ');
  readln(larik[i]);
 end;
 writeln('Larik yang dimasukkan : ');
 write('(');
 for i:=1 to 9 do
 write(larik[i],' ');
 writeln(')');

 readln;

 hi := 0;
 for i := 1 to 9 do
 begin
  if (larik[i] >= hi) then
  begin
   hi := larik[i];
  end;
 end;

 for i:= 1 to 9 do
 begin
  if (larik[i] = hi) then
  begin
   str(i,xx);
   posisi := posisi + xx + ' ';
  end;
 end;
 writeln('Nilai terbesar adalah : ', hi);
 writeln('Nilai terbesar ditemukan pada posisi ke : ', posisi);
 readln;
end.