[PASCALABC.NET, Работа с файлами]: Не работает код.

[maxwelln1]

6. Целочисленная матрица, в которой число строк n вдвое меньше числа столбцов, хранится в текстовом файле. Сохранить в этом файле матрицу порядка nxn, удалив последние n столбцов.

const fil = 'text.txt';
      tmp = 'temp.tmp';
var f, g: text;
    i, j, t, n: integer;
begin
  assign(f, fil);
  reset(f);
  n := 0;
  while not seekeoln(f) do
    begin
      read(t);
      inc(n)
    end;
  reset(f);
  n := n div 2;
  assign(g, tmp);
  rewrite(g);
  for i := 1 to n do
    begin
      for j := 1 to n do
        begin
          read(f, t);
          write(g, t, ' ')
        end;
      readln(f);
      writeln(g)
    end;
  close(f);
  close(g);
  erase(f);
  rename(g, fil)
end.

Вот есть код, но он почему-то на PASCALABC.NET не компилируется. НА FP не пробовал. Что надо изменить?

[CMY_3]

НА FP не пробовал.

типизированные константы объявлены неправильно, а в остальном код рабочий

[Serge_Bliznykov]

CMY_3, тут в коде нет типизированных констант.
обычные константы есть, объявлены корректно.

Код на PASCALABC.NET компилируется, запускается и уходит в бесконечный цикл:

  while not seekeoln(f) do
    begin
      read(t);
      inc(n)
    end;

в условии цикла проверяется условие, связанное с файлом f,
а внутри цикла чтения файла нет.

предполагаю, что это цикл использовался для подсчёта n (количество чисел в первой строке исходного файла).

если исправить код на

while not seekeoln(f) do
    begin
      read(f, t);
      inc(n)
    end;

то код работает и что-то даже делает (переписывает исходный файл text.txt, уменьшая размер матрицы).
Насколько это делается правильно - не берусь судить.

[maxwelln1]

Да, все верно. Работает как положено. Спасибо!

[CMY_3]

тут в коде нет типизированных констант.

да, тут я спутался