uses crt;

Type
  ff = File Of Integer;
Const
  maxAmount = 100;
Var
  a: array[1 .. maxAmount] Of Integer;
  f_name: String;
  f: ff;


Procedure newFile(Var f: ff);
Var
  i, n, max: Integer;
Begin
  ClrScr;
  ReWrite(f);
  Write('n = '); ReadLn(n);
  Write(f, n);

  WriteLn('Enter numbers:');
  max := -maxInt;
  For i := 1 to n do
    Begin
      Readln(a[i]);
      If a[i] > max Then max := a[i];
      Write(f, a[i])
    End;
  Write(f, max);
  Close(f)
End;

Procedure Print(Var f: ff);
Var i, n, max: Integer;
Begin
  Reset(f);
  WriteLn;

  Write('Data from file:');
  Read(f, n);
  For i := 1 To n Do
    Begin
      Read(f, a[i]);
      Write((a[i]):4)
    End;
  WriteLn;

  WriteLn('max value = ');
  Read(f, max);
  WriteLn(max);
  Close(f)
End;

var
  stop: boolean;
  q: char;

{****************       ??-r?- ? ?pr?p ªª         ******************}
begin
  clrscr;
  write ('Vvedite name Faila v kotorie bydyt soxraneni dannie: ');
  readln (f_name); { f_name := 'strx.dat'; }
  Assign(f, f_name);

  stop := false;
  repeat
    clrscr;
    writeln;
    writeln('Press 1 to create new file');
    writeln('Press 2 to show saved file');
    writeln('Press 3 to quit');
    Readln(q);
    case q of
      '1' : newFile(f);
      '2' : Print(f);
      '3' : stop := true;
    end
  until stop;
end.