Информатика [РТФ, Андреев, 2 семестр] / Лабораторные / Лабораторные (txt) / 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.