Помогите исправить код

[InfStudent]

Бывает)) Но вообще конечно садист у них препод: матрицы через текстовые файлы) 

[Данила]

ну у нас тоже в 1ом семестре это было на экзамене) ток я по нему автомат получил,поэтому ничего не помню)

[bifshtex]

Ребят я решил эту задачу, кого интересует могу код кинуть)

[InfStudent]

Кидай

[bifshtex]

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

uses crt;
const n=4;
var
f1,f2:text;
str_file:string;
x:integer;
i,j:byte;

begin
clrscr;
write('input name file:');
readln(str_file);

assign(f1,str_file);
reset(f1);

assign(f2,'dop.txt');
rewrite(f2);

while not eof(f1) do
 for i:=1 to n do
 begin
  for j:=1 to n do
  begin
    read(f1,x);
    if (i<>n) and (j<>n) then write(f2,x:4);
  end;
  writeln(f2);
 end;


close(f1);
close(f2);
erase(f1);
rename(f2,str_file);
end.