Информатика [РТФ, Андреев, 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.