Membuat Program Pascal untuk Menampilkan Nilai Terbesar dan Terkecil

program terbesar_terkecil;
uses wincrt;
var
i,n:integer;
data:array[1..100]of integer;
x,y:longint;
begin
x:=-999999;
y:=999999;
write(' Masukkan jumlah data = ');readln(n);
for i:=1 to n do
begin
write(' Masukkan data ke ',i,' = ');readln(data[i]);
end;
for i:=1 to n do
begin
if data[i] > x then
x:=data[i];
if data[i] < y then
y:=data[i];
end;
writeln(' Bilangan Terbesar = ',x);
writeln(' Bilangan Terkecil = ',y);
readln;
end.