Program Menentukan Posisi Nilai Maksimum dalam Pascal

program maksimum;
uses crt;

const
        batas=5;
var
        jumlah:integer;
        isi:array [1..batas] of integer;
        i:integer;
        max:integer;
        posisi:integer;

begin
clrscr;
        repeat
        write('Masukkan Batas Bilangan Yang Diinputkan : '); readln(jumlah);
        until (jumlah<=batas);

        for i:=1 to jumlah do
        begin
        write(i,'. Angka = '); readln(isi[i]);
        end;

        max:=isi[1];
        for i:=2 to jumlah do
        if isi[i] > max then
        max:=isi[i];


        for i:=1 to jumlah do
        if isi[i] = max then
        posisi:=i;

        writeln('');
        writeln('Bilangan Maksimum Adalah              : ',max);
        writeln('Bilangan Maksimum Terletak Pada Nomor : ',posisi);
        readln();

end.

Seperti ini nih kalau programnya di run