Mencari Bilangan Terbesar dengan Array Pascal

program angka_terbesar;
uses wincrt;
var
bil:array[1..100] of integer;
i,k,n:integer;
begin
k:=-9999;
write(' Masukkan jumlah data yang akan diinputkan = ');readln(n);
for i:=1 to n do
begin
write(' Msukkan bilangan ke ',i,' = ');readln(bil[i]);
if bil[i]>k then
k:=bil[i];
end;
writeln;
writeln(' Tekan ENTER untuk mengetahui bilangan terbesar!');readln;
writeln(' Bilangan terbesar = ',k);
readln;
end.