Курсовая работа: Разработка информационно-справочной системы "Устройство персонального компьютера"

end;

procedure read(name: string);

var fname: text;

s: string;

y: Integer;

pos: longint;

begin

assign(fname,name);

reset(fname);

while not eof(fname) do

begin

y: =30; setcolor(0);

for pos: =1 to 40 do

begin

y: =y+10;

readln(fname,s);

outtextXY(30,y,s);

end;

com: =readkey;

readkey;

if com=#60 then break

else mainmenu(90);

end;

end;

Procedure fajl;

PROCEDURE proff(i: integer);

var

k: integer;

begin