Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

end;

begin

opening;

cursor($20, $20);

pos:=0;

MPOS:=filesize(f);

repeat

showfrom(pos);

showhead;

ch:=readkey;

if ch=#27 then break;

if ch=#0 then begin

ch:=readkey;

if (ch=#59) then help;

if (ch=#68) then break;

if (ch=#80) and (pos
if (ch=#72) and (pos>0) then dec(pos);

if (ch=#73) then if (pos>PSIZE) then dec(pos, PSIZE) else pos:=0;

if (ch=#81) then if (pos
end;

until false;

cursor(6, 7);

end;

procedure error(str: string);

begin

writeln(str);

halt;

end;

var

fmen: array [1..10, 1..10] of string[80];