дапля дело не втом .
Вот:

program bugoga;
{$APPTYPE CONSOLE}
uses SysUtils,crt;
var
n,k,i,j: integer;
M : array [1..15,1..15] of integer;

begin
n:=15;
k:=15;
randomize;
For i:=1 to n do
For j:=1 to k do
M[j,i]:=random(15)-4;
For i:=1 to n Do begin
For j:=1 to k
Do Write (M[i,j]:2,' ');
writeln;
End;
Readln;
end.

Но она невыведется!!

Но если CRT не юзать То выводится симпатишная табличка 15х15

=> всё из-за crt