Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные / Lab3

program Lab3;

var
    {Файлы:}
    f1 : file of integer;
    f2 : text;
    f3 : file;

    temp, buf, count, r : integer;
    t : char;
    m1, m2 : longint;

    {Указатели:}
    p1 : ^integer;
    p2 : pointer;
begin
    count := 512;
    buf := 111;
    r := 3;

    assign(f1, 'file1.txt');
    assign(f2, 'file2.txt');
    assign(f3, 'file3.txt');

    rewrite(f1);
    rewrite(f2);
    rewrite(f3, 1);
    append(f2);

    write(f1, count);
    writeln(f2, 'text');
    blockwrite(f3, buf, 1);

    reset(f1);
    read(f1, temp);
    writeln(temp);

    reset(f2);
    read(f2, t);
    writeln(t);

    reset(f3, 1);
    blockread(f3, temp, 1);
    writeln(temp);

    close(f1);
    rename(f1, 'file0.txt');
    erase(f1);

    close(f2);
    close(f3);

    {=================}

    new(p1);
    p1^ := 10;
    writeln(p1^);
    dispose(p1);

    p2 := p1;
    getmem(p2, 1);
    freemem(p2, 1);
    mark(p1);
    release(p1);
    m1 := maxavail;
    m2 := memavail;
    writeln(m1);
    writeln(m2);

end.