program pptest15(input, output, f);

  type coord = record x, y: real end;

  var
    t: text;
    f: file of coord;
    ch: char;
    i: integer;
    x: real;
    b: boolean;
    pt: coord;

  begin
  { reset , rewrite }
    reset(f);
    rewrite(f);
    reset(t);
    rewrite(t);

    { read,readln }
    read(t, x);
    read(t, i);
    readln(t, x, ch);
    read(f, pt);

    { write,writeln }
    write(t, ch);
    write(t, x);
    write(t, i);
    writeln(t, i, x, ch);
    write(f, pt);

    { get,put }
    f^ := pt;
    put(f);
    t^ := ch;
    put(t);
    pt := f^;
    get(f);
    ch := t^;
    get(t);

    { eoln,eof,page }
    b := eof(t);
    b := eoln(t);
    b := eof(f);
    page(t)
  end { pptest15 }.