Преобразовать файл, удалив из каждой матрицы последнюю строку и последний столбец.

[teem]

Здравствуйте.
Вот задачка:
В текстовом файле хранятся квадратные целые матрицы порядка n. Преобразовать файл, удалив из каждой матрицы последнюю строку и последний столбец.

Подскажите пожалуйста как ее можно решить, с чего начать и вообще как можно удалить строки, столбцы матрицы в файле.

[hon]

1. Создаем две матрицы: исходную и новую, в которой нет последнего столбца и строки
2. Загружаем матрицу
3. Копируем элеенты
4. Записываем

[teem]

ну в задании сказано что в файле несколько матриц
и что значит загрузить матрицу и скопировать элементы

я пытался сделать таким образом: рандомно ввести матрицу, записать ее в файл, а потом уже сократить разрядность матрицы на n-1 элемент и записать ее в другой файл.. но выдает ошибку чтения с диска

[hon]

Сообщение от teem

ну в задании сказано что в файле несколько матриц
и что значит загрузить матрицу и скопировать элементы

Загрузить методом Read.

Сообщение от teem

но выдает ошибку чтения с диска

Какая ошибка именно? Какой код, сообщение?

Сообщение от teem

я пытался сделать таким образом: рандомно ввести матрицу, записать ее в файл, а потом уже сократить разрядность матрицы на n-1 элемент и записать ее в другой файл..

Приводи код.

[teem]

program lr9;
var
a:array [1..10,1..10] of integer;
f,f2:file of integer;
n,i,j:integer;

begin
randomize;
assign(f,'file_1.txt');
assign(f2,'file_2.txt');
rewrite(f);
rewrite(f2);

	writeln('BB razmernost matric n');  //ввод размерности матрицы
	readln(n);			    
		for i:=1 to n do		   //рандомное заполнение матрицы
		 for j:=1 to n do begin			и запись ее в файл
			a[i,j]:=random(n);
			write(f,a[i,j]);
				 end;               //----------------------//
	reset(f);

   writeln('soderzhanie ishodnogo faila');
     while not eof(f) do                    //чтение файла и вывод
       begin 					исходного массива на экран
       read(f,a[i,j]);
       write(a[i,j],' ');
       end;				//----------------------//
   close(f);

writeln;
reset(f);

    writeln('soderzhanie novogo faila');
      while not (eof(f)) do                //чтение массива из исходного файла
        begin                                 и запись его в другой файл но 
        for i:=1 to n-1 do                       уже на сокращенную разрядность матрицы n-1
         for j:=1 to n-1 do begin
          read(f,a[i,j]);   //здесь выдает ошибку чтения с диска
          write(f2,a[i,j]);
          write(a[i,j],' ');
                         end;
       end;				  //----------------------//
readln;
end.

В конце программы что то делаю не верно, но ни как не могу сообразить.
Подскажите пожалуйста((