program test;
var
a: array[1..2,1..2] of Integer;
begin
a[1,1] := 12;
a[1,2] := 23;
a[2,1] := 34;
a[2,2] := 45;
end.
Пример за внесување на вредности на елементи од низа - поле од тастатура и за печатење:
program test;
var
r, c: Integer;
a: array [1..3,1..3] of Integer;
begin
for r := 1 to 3 do
for c := 1 to 3 do
Readln(a[r,c]);
for r := 1 to 3 do
for c := 1 to 3 do
writeln(a[r,c]);
end.