попробовал использовать CLRSCR, но лучше не стало?

uses Graph, crt;
var Gd, Gm : Smallint;
begin
Gd := 9;
gm :=2;
Writeln ('red');
InitGraph(Gd, Gm, '');
Line(0, 0, GetMaxX, GetMaxY);
Line(3,3, 20, 20);
ReadLn;
CloseGraph;
CLRSCR;
Writeln ('help');
readln
end.