Нарисовать 100 линий, расходящиеся в разные места, начиная с центра экрана — Pascal(Паскаль)

uses
  Graph;

var
  GrDr, GrMo, i: integer;

begin
  GrDr := 0;
  InitGraph(GrDr, GrMo, '');
  for i := 1 to 100 do
    Line(GetMaxX div 2, GetMaxY div 2, Random(GetMaxX + 1),
      Random(GetMaxY + 1));
  readln;
  CloseGraph

end.