Файлы

[Nitriyc]

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

uses crt;
type fz=text;
procedure Input (z:string; n:word);
var s:string; k:byte; nz:fz;
begin
repeat
begin
write ('kolichestvo strok: ');
readln (n);
if n>10 then begin write ('write kol-vo strok <10'); writeln; end
end;
until n<=10;
assign(nz,z);
rewrite(nz);
for k:=1 to n do
begin
write ('write string:');
readln(s);
writeln(nz,s);
s:='';
end;
close(nz);
end;
procedure NewFile(x,z:string; n:word);
var nz,tf:fz; s2,s1,s:string; i:word;
begin
assign (tf,x);
assign (nz,z);
reset (nz);
rewrite (tf);
readln (nz,s);
while not eof(nz) do
begin
readln (nz,s);
for i:=1 to n do
s:=s+a[i,n+1-i];
end;
writeln (tf,s1);
writeln (tf,s2);
writeln (tf,s1);
close (tf);
assign (tf,x);
reset (tf);
while not eof(tf) do
begin readln (tf,s);
writeln(s);
end;
close (tf);
close (nz);
 
end;
 
var x,z:string; n:word;
begin
clrscr;
write ('write directory and name of file: ');
readln (z);
Input (z,n);
write ('x:');
readln (x); 
NewFile (x,z,n);
readln;
end.