Pembentukan Array Multidimensional

uses crt;
var
a : array [1..3,1..3] of byte;
g,h,i,j : byte ; jml : longint;
min,max : real;
begin
clrscr;
writeln('Universitas Muhammadiyah Jakarta');
writeln('Teknik Informatika');
writeln('Contoh Array');
writeln;

jml:=0;

a[1,1]:=1;    {input sudah diketahui}
a[2,1]:=4;    {bisa dirubah nilainya}
a[3,1]:=7;
a[1,2]:=2;
a[2,2]:=5;
a[3,2]:=8;
a[1,3]:=3;
a[2,3]:=6;
a[3,3]:=9;

for i:= 1 to 3 do
begin
for j:= 1 to 3 do
write(a[i,j]:3);readln;
end;
end.