Как массив разбить на 4 части? Дан массив например 6х6, как сделать, чтобы он в Паскале разбился на 4 массива 3х3?

const
N = 6; // размеры массивов
M = 3;
a = 1; // диапазон случайных значений
b = 20;
var
ar : array[1..N,1..N] of integer;
ar1,ar2,ar3,ar4 : array[1..M,1..M] of integer;
i,j :integer;
begin

for i := 1 to N do begin
for j := 1 to N do begin
ar[i,j] := random(b - a + 1) + a;
write(ar[i,j]:3);
end;
writeln();
end;
writeln();

for i := 1 to M do begin
for j := 1 to M do begin
ar1[i,j] := ar[i,j];
write(ar1[i,j]:3);
end;
writeln();
end;
writeln();

for i := 1 to M do begin
for j := M+1 to N do begin
ar2[i,j-M] := ar[i,j];
write(ar2[i,j-M]:3);
end;
writeln();
end;
writeln();

for i := M+1 to N do begin
for j := 1 to M do begin
ar3[i-M,j] := ar[i,j];
write(ar3[i-M,j]:3);
end;
writeln();
end;
writeln();

for i := M+1 to N do begin
for j := M+1 to N do begin
ar4[i-M,j-M] := ar[i,j];
write(ar4[i-M,j-M]:3);
end;
writeln();
end;
writeln();

end.