Помогите доделать

[Povar]

Помогите пожалуйста

задача
На экране нарисовать группу линий. Информацю о каждой группе - цвет,тип линии , координаты по каждой динии записать внетипизированный файл. Сохранить файл на диске, затем очистить экран и Востановить содержимое файла.


А вот что я написал код но это только часть все что умею а как доделать до ума

program gr_1;
 uses crt,graph ;
type
line=record
end;

var dr,md:integer;
F: file of line ;
begin
    dr:=detect;
   initgraph (dr,md,'D:\tp\bgi');
       line(300,200,300,350);
       line(300,200,150,200);
       line(300,200,450,200);
       line(300,200,300,50);
        setcolor(4);

    readkey;
   closegraph;
end.

[Stilet]

Ну дык далее GetColor, GetLineSetting инфа в хелпе и даже с примерами