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

TextBackground(3);

ClrEol;

end;

procedure showtext(fname: string);

const

PSIZE = 23;

type

str80 = string[80];

var

f: file of str80;

str: str80;

pos, MPOS: integer;

ch: char;

procedure opening;

begin

assign(f, fname);

{$I-}

reset(f);

{$I+}

if ioresult<>0 then begin

textattr:=7; clrscr;

writeln('Error in opening file: ', fname);

halt;

end;

end;

procedure showfrom(n: integer);

var

i: integer;

begin

seek(f, n);