Program pascal Menentukan Bilangan Terbesar dan terkecil

Bilangan Terbesar dan terkecil

ini gan cekidot..ane punya ilmu program TPW  (Pascal) sekedar hanya ingin memberi ilmu aja gan
hehe...

uses wincrt;
var
dafbil:array[1..100] of integer;
terbesar :integer;
terkecil :integer;
i,n :integer;
begin

write('Masukkan cacah bilangan =');readln(n);
{terbesar:=-999;
terkecil:=999;- -->ini hanya berlaku apabila nilai bilangan
antara -999 s/d 999}
{terbesar:=dafbil[1];
terkecil:=dafbil[1];--> akan menyebabkan yang terkecil selalu
0(nol) apabila nilai semua bilangan lebih besar dari 0(nol)}
for i:= 1 to n do
begin
write('Bilangan ke ',i,' = ');readln(dafbil[i]);
end;
terbesar:=dafbil[1];
terkecil:=dafbil[1];
for i:= 2 to n do
if dafbil[i] > terbesar then
terbesar:=dafbil[i]
{for i:= 2 to n do}
else
if dafbil[i] < terkecil then
terkecil:=dafbil[i];
writeln('Bilangan terbesar =',terbesar);
writeln('Bilangan terkecil =',terkecil);

readln;
done wincrt;
end.