Matrik Array

uses wincrt;
var
   Matrik:array[1..2,1..2] of byte;
   x,y:byte;
begin
clrscr;
        Matrik[1,1]:=5;
        Matrik[1,2]:=3;
        Matrik[2,1]:=8;
        Matrik[2,2]:=6;
        for x:=1 to 2 do
        begin
             for y:=1 to 2 do
             begin
                  write(Matrik[x,y]:8);
             end;
             writeln;
        end;
        readln;
end.