program testmem;
var s1:^string[2048];
    s2:^string[2048];
begin
        writeln(MemAvail);
        writeln(MaxAvail);

        writeln('new s1 and s2');
        new(s1);
        new(s2);
        writeln(MemAvail);
        writeln(MaxAvail);

        writeln('dispose s1');
        dispose(s1);
        writeln(MemAvail);
        writeln(MaxAvail);
end.