Чтение матрицы из файла

[Alex11223]

  for i:=1 to 6 do
    for j:=1 to 6 do
    begin
        read(f,A[i,j]);
        writeln(A[i,j]);
     end;

А для чего вы используете переменную k?)

[Alina_Honey]

Переменная k - это размерность массива. В программе я пробовала её пока что не применять.

[New man]

for i:=1 to 6 do
  Begin
  for j:=1 to 6 do
  begin
  read(f,A[i,j]);
  write(A[i,j],'   ');
end;
  writeln();
  end;
  close(f);

[Alina_Honey]

Спасибо вам большое=)

[Kataklysm]

Если кому понадобиться, готовая программа для чтения матрицы из файла. Спасибо New man!

uses crt;
const n=10;
var
a: array[1..n,1..n] of integer;
i,j,c:integer;
f:text; 
begin
clrscr;
write('Введите размерность матрицы: ');
readln(c);
assign(f,'1.txt');
reset(f);
While not eof(f) do
   for i:=1 to c do
  Begin
  for j:=1 to c do
  begin
  read(f,a[i,j]);
  end;
  end;
  close(f);

for i:=1 to c do
    begin
    for j:=1 to c do
        write(a[i,j]:3);
    writeln;
    end;
end.

Пример файла с входящими данными:

0 7 9 0 0 14
7 0 10 15 0 0
9 10 0 11 0 2
0 15 11 0 6 0
0 0 0 6 0 9
14 0 2 0 9 0

[Inessa1977]

[QUOTE=Alina_Honey;799733]
for i:=1 to 6 do
Begin
for j:=1 to 6 do
read(f,A[i,j]);
writeln(A[i,j]);
end;
QUOTE]

У Вас ошибка в том, что Writeln работает только для j=6
насколько я поняла задачу, нужно вот так
for i:=1 to 6 do
for j:=1 to 6 do
begin
read(f,A[i,j]);
writeln(A[i,j]);
end;