Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (альтернатива) / L (3)

program labor3;

var
    a, b, c, d  : byte;
    e : char;

    file1 : file of byte;
    file2 : text;
    file3 : file;

    poin1 : ^word;
    poin2 : pointer;
begin
    assign (file1, 'f1.txt');
    rewrite(file1);
    assign (file2, 'f2.txt');
    rewrite(file2);
    assign (file3, 'f3.txt');
    rewrite(file3, 1);

    append(file2);

    c := 1;
    b := 2;
    d := 3;

    write(file1, d);
    reset(file1);
    read(file1, a);
    writeln(a);

    write(file2, '12345');
    reset(file2);
    read(file2, e);
    writeln(e);

    blockwrite(file3, b, 1);
    reset(file3, 1);
    blockread(file3, a, 1);
    writeln(a);

    close(file1);
    close(file2);
    close(file3);
    
    rename(file3, 'f4.txt');
    erase(file3);

    new(poin1);
    poin1^ := 2;
    dispose(poin1);
    poin2 := poin1;
    writeln(poin1^);
    getmem(poin2, 1);
    freemem(poin2, 1);
    mark(poin1);
    release(poin1);
    writeln(maxavail);
    writeln(memavail);
    
end.