const nmax=100;
type z=record
     massiv:array[1..nmax] of real;
     end;
     Fdoc=file of z;
var f1:z;
    f:fdoc;
    f3:text;
    s,s1:string;
    k:integer;
    sr,sum:real;
function FileExist(filename:string):boolean;
var f:Fdoc;
begin
Assign(f,filename);
{$I-}
Reset(f);
{$I+}
if IOResult = 0 then begin
		     close(f);
		     fileexist:=true;
		     end
		else fileexist:=false;
end;
    procedure DobavZapis(f1:z; s:string);
    var f,f2:fdoc;i,k:integer;
       begin
       writeln('vvedite dlinu massiva');
       read(k);
       sum:=0;
       for i:=1 to k do
       begin
       writeln('vveddite element');
       read(f1.massiv[i]);
       sum:=sum+f1.massiv[i];
       end;
       sr:=sum/k;
       if FileExist(s)=false then writeln('no file') else begin
						       assign(f,s);
						       reset(f);
						       assign(f2,s);
						       reset(f2);
						       seek(f,filesize(f));
						       write(f,f1);
						       if sr<0 then
						       write(f2,f1);
						       close(f);
						       close(f2);
						       end;

       end;

procedure Newf(s:string);
var f:text;
begin
assign(f,s);
rewrite(f);
close(f);
end;

    procedure outp1(f1:z;s:string);
    var i:integer; f:fdoc;
    begin
    if fileexist(s)=false then writeln('no file') else begin
						 assign(f,s);
						 reset(f);
						 while not eof do
						 begin
						 read(f,f1);
						 for i:=1 to nmax do
						 write(f1.massiv[i]);
						 end;
						 end;
    end;

begin
writeln('vvedite fail');
read(s);
NewF(s);
repeat
DobavZapis(f1,s);
writeln('vvedite zapis,dla okonchaniya vvedite exit');
readln;
readln(s1);
until s1='exit';
outp1(f1,s);
end.