Файл и компоненты из массивов

uses crt;
const n=9;
type mas=array[1..n] of integer;
var
f1:file of mas;
f2:file of integer;
a:mas;
i:integer;
 
Procedure Create_File;
var
x:integer;
begin
assign(f1,'File.mas');
assign(f2,'File.int');
rewrite(f1);
reset(f1);
randomize;
rewrite(f1);
repeat
      for i:=1 to n do
          a[i]:=random(9);
          write(f1,a);
          writeln('Создать еще компаненту? Y/N');
until Upcase(readkey)='N';
end;
 
Procedure Write_File;
begin
reset(f1);
while not eof(f1) do
      begin read(f1,a);
            for i:=1 to n do
                write(a[i],' ');
                writeln;
      end;
end;
 
Procedure Algorithm;
var
x:integer;
begin
reset(f1);
while not eof(f1) do
      x:=0;
      begin read(f1,a);
            for i:=1 to n do
            inc(x);
            if x>3 then
            begin
 
end;
 
BEGIN
Create_File;
textcolor(green);
writeln('Исходный файл:');
textcolor(black);
Write_File;
close(f1);
END.