Нужен подправленный crt чтоб Write работал как надо... выводя всё в строку hellp срочно

For i:=1 to n Do begin
For j:=1 to k
Do Write (M[i,j]:2,' '); <----
writeln;
End;

заранее спасибо