Паскаль. Дан код, нужно записать данные в файл.

[Liam_]

Задача: Дана матрица, записанная в файле. Образовать новую матрицу путем удаления k - строки и l - столбца из исходной. Полученную матрицу записать в файл.

Всё сделал, но эл-ты новой матрицы записываются в строчку в файле, как записать их матрицой, то бишь "сеткой"?

Program g6;
     Uses Crt;
       Type
         mas = array [1..8,1..8] of integer;
       Var
         A,b : mas;
         i,n,j,s2,k,m,l: byte;s1:integer;

         priznak,priznak2 : string [20];f,z:text;
          Begin
           ClrScr;
       
           ReadLn (n);
           readln(m);}n:=3;m:=4;
           writeln('k-строка');read(k);
           writeln('l-столбец');read(l);
            writeln('Исходная матрица:');
 Assign(F,'c:\somefile.txt');
 reset(f);
 For i:=1 to n do begin
 For j:=1 to m do begin
 read(F,A[i,j]); write(' ',A[i,j]) end;
 readln(f); writeln end;
 close(f);
 for i:=1 to n do
 for j:=1 to m do begin
 b[i,j]:=a[i,j]; end;

  for i:=k to n do
 for j:=1 to m do begin
 b[i,j]:=A[i+1,j];end;


  for j:=l to m do
  for i:=1 to n do begin
 b[i,j]:=b[i,j+1]; end;
 writeln;
   for i:=1 to n-1 do begin
 for j:=1 to m-1 do write(b[i,j],' ');writeln;end;
  Assign(z,'c:\7.txt');rewrite(z);
     for i:=1 to n-1 do begin
 for j:=1 to m-1 do write(z,'',b[i,j],' ');end;close(z);
end.

[Mad_Cat]

 for i:=1 to n-1 do begin
 for j:=1 to m-1 do write(z,'',b[i,j],' ');
writeln(z);
end;close(z);

[Liam_]

добавил writeln, всё равно в строчку пишет :/

[Hibiby]

For j:=1 to n do
begin
For i:=1 to n do
write(m[i,j],' ');
writeln;


так вроде

[Liam_]

неа, так тупо в столбик все элементы даёт..

[Vanta11a]

For j:=1 to n do
begin
For i:=1 to n do
write(m[i,j],' ');
writeln;
end;

Строка

write(m[i,j],' ');

обрабатывается циклом

i:=1 to n

, потом перевод строки и снова обработка.