Pascal - Array Dimensi 2

program rata_array_dimensi2;
uses crt;

var

        rata:real;i,k,n,d,f,e:integer;
        nilai:array[1..3,1..3] of real;
        total:array[1..3] of real;
begin
clrscr;
n:=7;e:=26;
gotoxy(25,3);writeln('*********************************');
gotoxy(25,4);writeln('            ELEMENT ARRAY');
gotoxy(25,5);writeln('*********************************');
for i:=1 to 3 do begin
         for k:=1 to 3 do
         begin
         gotoxy(25,n);write('Masukkan nilai indeks data(',i,',',k,')=')
         ;readln(nilai[i,k]);
         total[i]:=total[i]+nilai[i,k];
         n:=n+1;
         end;
end;
i:=0;
k:=0;
gotoxy(55,e);writeln('*********************************');
for i:=1 to 3 do begin
         for k:=1 to 3 do begin
         gotoxy(6,e);
         writeln('*nilai indeks[',i,',',k,']',nilai[i,k]:2,1,')');
         end;
end;
i:=0;
gotoxy(55,e+1);writeln('*******************************');
for i:=1 to 3 do
begin
        Rata:=(total[i]/k);
        writeln('*rata rata indeks[',i,']=',
rata:2,1,' *');
end;
writeln('*****************************');
readln;
end.