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

[Alina_Honey]

Подскажите пожалуиста, почему выбивает ошибку и как это исправить...

Uses CRT;

var
 A: array [5..130, 5..130] of longint;
input:text;
i,j,k,l:integer;
Begin
Clrscr;
assign(input,'matr.txt');
reset(input);
readln(input,k);
writeln('Matrica smejnosti A:');
for i:=1 to k do
    begin
      for j:=1 to k do
          begin
             read(input,A[i,j]);
             write(A[i,j]:6);
          end;
      writeln;
    end;
close(input);
End.

Выбивает ошибку:
Error 104: File not open for input.

[rus12]

вы попробуйте указать путь к файлу.
Например:скиньте файл на диск C и измените одну строчку кода

assign(input,'c:\matr.txt');

[Alina_Honey]

Нет... не помогло....

[Stilet]

input:text;

Вообще-то input это зарезервированное слово... Не стоит его переопределять.
Назови переменную как-то по другому.

[Sparkman]

File not open for input
файл не открыт для ввода

чтение текстовых файлов производится с помощью команды ReadLN.

[Alina_Honey]

Написала не input, а f1... Не помогло...
А как с помощью readln? Извините, я просто новичок.

[romanhch]

я не профи в програмирувани но щитаю што нужно начиная из
reset(input);
readln(input,k);
дописать такое
close (intup);
readln(intup);
а дальше продолжать то што и было и имя поменять всьотаки на штото типа f1 и всьо должно работать

[Sparkman]

вот где ваша ошибка

A: array [5..130, 5..130] of longint;

индексы этой матрицы начинаются с 5, а вы далее по тексту алгоритма обращаетесь с единицы. Поправьте:

 A: array [1..125, 1..125] of longint;

[Alina_Honey]

Спасибо, и правда, совсем запуталась)))

[Alina_Honey]

Помогите пожалуйста еще раз) Мне теперь нужно тоже самое задать в PascalABC.

Uses Crt;
var 
  f: text;
  A: array [1..90,1..90] of longint;
  i,j,k:integer;
begin
Clrscr;
  assign(f,'matr.txt');
  reset(f);
  readln(f,k);
  for i:=1 to 6 do
  Begin
  for j:=1 to 6 do
  read(f,A[i,j]);
  writeln(A[i,j]);
  end;
  close(f);
  End.

Но при запуске выдает:
1
0
1
0
1
0
и всё...=(((