Program array menggunakan inputan

Program ArrayInputan;
uses crt;
var  A : array [1..3,1..3] of integer;
     i, j : integer;
begin
clrscr;
writeln('Masukkan Nilai - Nilai Array Rois :');
     for i:=1 to 3 do
     begin
         for j:=1 to 2 do
         begin
              write('Masukkan nilai Array Rois pd indeks ',i,', ',j,' : ');
              readln(A[i,j]);
         end;
     end;
begin
     for i:=1 to 3 do
     begin
          for j:=1 to 2 do
          begin
               write(A[i,j] :4);
          end;
          writeln;
     end;
     readln;
     end;
end.