Mencari Nilai Maximum dan Minimum dengan Pascal

abdulmail - program maximum dan minimum dengan pascal.
program max_min;
uses crt;
var
bil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin
clrscr;
writeln;write(' Ada berapa bilangan =');readln(n);
for i:= 1 to n do
begin
write(' Bilangan ke ',i,' = ');readln(bil[i]);
end;
terbesar:=bil[1];
terkecil:=bil[1];
for i:= 2 to n do
if bil[i] > terbesar then
terbesar:=bil[i]
else
if bil[i] < terkecil then
terkecil:=bil[i];
writeln(' -----------------');
writeln(' Bilangan terbesar =',terbesar);
writeln(' Bilangan terkecil =',terkecil);
readln;
end.