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

begin

cleardevice;

textcolor(red);

outtext('Ненайденфайл, проверьтеналичиефайланадиске.');

readkey;

end

else

begin

n:=1;

while not eof(f) do {Read from Fille in Massiv}

begin

readln(f,str);

txt[n]^:=str;

n:=n+1;

end;

n:=n-1;

if n<=25 then

begin

pos:=40;

for j:=1 to n do

begin

outtextXY(40,20+pos,txt[j]^);

pos:=pos+10;

end;

repeat

until readkey=#27;

end

else

begin