[Fagot]

Повідомлення від NickDNS

Для работы с модулем Graph тебе нужно его инициализировать. А это делается так:

uses Graph;

var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,'e:\bp7\bgi\egavga.bgi');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
end.

я думаю проблема не в этом.мне кажется Галина Петровна успела научить Ганешу писать пероцедуру ингр на автомате.Правда Настя?)