ControlVectorNoWrok

uses crt;
const
 n = 3;
type mtr=array[1..10,1..10] of integer;
type mss=array[1..10] of integer;


far = file of mtr;
mar = file of mss;

procedure Create(var f:far);
var
fn1:string;
begin
readln(fn1);
while FileExists(fn1) do begin
 writeln('Такой файл уже существует');
 writeln('Введите название исходного файла повторно: ');
 readln(fn1);
 end;
 assign(f,fn1);
 rewrite(f);close(f);
 writeln('Файл создан');
end;

procedure AskingQuestions(var g:mar);
var
fn1:string;
begin
readln(fn1);
while FileExists(fn1) do begin
 writeln('Такой файл уже существует');
 writeln('Введите название исходного файла повторно: ');
 readln(fn1);
 end;
 assign(g,fn1);
end;

procedure InputRec(var f:far);
var a:mtr;
i,j,k:integer;
begin
randomize;
reset(f);
for i:=1 to 3 do
 begin
  for k:=1 to n do
  for j:=1 to n do
  a[k,j]:=-10+random(15);
  write(f,a);
 end;
 end;


procedure ViewFileRec(var f: far);
var a:mtr;
i,j:integer;
begin
 reset(f);
 while not eof(f) do begin
  read(f,a);
  for i:=1 to n do
   begin
    writeln;
    for j:=1 to n do
     begin
      write(a[i,j]:5);
     end;
   end;
  writeln;
 end;
close(f);
writeln;
end;

procedure ViewFile(var f: mar);
var b:mss;
i,j:integer;
begin
 reset(f);
 while not eof(f) do begin
  read(f,b);
  for i:=1 to n do
   begin
      write(b[i]:5);
   end;
  writeln;
 end;
close(f);
writeln;
end;



procedure Alg(var f:far; var g: mar);
var a:mtr;
var b:mss;
i,j,sum:integer;
begin
sum:=0;
rewrite(g);
reset(f);
while not eof(f) do begin
read(f,a);
for i:= 1 to n do begin
 sum:=0;
 for j:= 1 to n do
  if (a[i,j]<0) then
   sum:=sum+a[i,j];
  b[i]:=sum;
end;
write(g,b);
end;
close(f);
close(g);
end;

var f1:far;var f2:mar;
fn1,fn2:string;
begin
 writeln('Введите имя исходного файла');
 Create(f1);
 writeln('Введите имя результирующего файла');
 AskingQuestions(f2);
 InputRec(f1);
 Alg(f1,f2);
 writeln('Исходный файл: ');
 ViewFileRec(f1);
 writeln('Результирующий файл: ');
 ViewFile(f2);
end.