Contoh Variabel Array dengan Free Pascal

program bilangan_terbesar;
uses crt;
var
x : Array[1..9] of integer;
max,i : integer;
begin
clrscr;
for i := 1 to 9 do
begin
write ('masukkan nilai yang dibandingkan = ');
read (x[i]);
end;
max := x[1];
for i := 1 to 9 do
begin
if i <= 8 then
begin
if max > x[i+1] then
begin
max := max;
end
else
begin
max := x[i+1];
end;
end;
end;

writeln ('nilai yang anda masukkan adalah = ');
for i := 1 to 9 do
begin
writeln ('indeks ke-' ,i,' = ',x[i]);
end;

write ('nilai yang terbesar adalah = ',max);
readln;
readln;
end.