Воспроизведения рисунка Опции

[plafon]

Кто нибудь поможет с такой задачей

Написать программу для воспроизведения рисунка, записанного в специальном формате в файле с расширением “vec”. Рисунок поместить в центр экрана. Под рисунком вывести имя файла, включая путь.
Графическое изображение представляет собой набор графических примитивов: точек, отрезков, прямоугольников и эллипсов различных цветов. Прямоугольники и эллипсы могут иметь заливку. Изображение имеет 16 цветов (коды цветов 0-15).
Файл содержит записи, каждая из которых состоит из фиксированного набора полей, описывающих графический примитив. Все координаты указываются в пикселях относительно левого верхнего угла изображения, имеющего координаты (0,0). Оси направлены: 0X - вправо, 0Y - вниз. Графические примитивы отображаются относительно текущей позиции курсора, которая может быть изменена специальной командой

[BlackShadow]

Бред-бредом.
Пишу без компилятора и по памяти, так что возможны ошибки.Если что - свисти, исправлю.

Код

Uses Graph,Crt;

Type
 TRec=Record
   Code:Byte;
   x:Integer;
   y:Integer;
   Color:Byte
 End;

Procedure DisplayFile(FileName:String);
Var
 f:File Of TRec;
 r:TRec;
Begin
 Assign(f,FileName);
 Reset(f);
 MoveTo(0,0);
 While Not Eof(f) Do
 Begin
   Read(f,r);
   Case r.Code Of
     0:
       If (r.Color And $80) <> 0 Then
       Begin
         SetBackColor(r.Color And $0F);
         ClearViewPort
       End
     1:
       MoveTo(r.x,r.y);
     2:
       PutPixel(r.x,r.y,r.Color And $0F);
     3:
     Begin
       SetColor(r.Color And $0F);
       LineTo(r.x,r.y)
     End;
     4:
       If (r.Color And $80) <> 0 Then
       Begin
         SetFillStyle(SolidFill,r.Color And %0F);
         Bar(GetX,GetY,r.x,r.y)
       End
       Else
       Begin
         SetColor(r.color And $0F);
         Rectnagle(GetX,GetY,r.x,r.y)
       End;
     5:
       If (r.Color And $80) <> 0 Then
       Begin
         SetFillStyle(SolidFill,r.Color And $0F);
         FillEllipse(GetX,GetY,r.x,r.y)
       End
       Else
       Begin
         SetColor(r.Color And $0F);
         Ellipse(GetX,GetY,r.x,r.y);                  {Вот тут вроде ещё углы начала и
                                                       конца указать надо, но я точно не помню}
       End;
     6:
     Begin
       SetFillStyle(SolidFill,r.Color Shr 4);
       FloodFill(x,y,r.Color And $0F)
     End
 End;
 Close(f)
End;

Var
 r,m:Integer;
 s:String;

Begin
 Write('Enter FileName: ');
 ReadLn(s);
 r:=Detect;
 InitGraph(r,m,'');
 DisplayFile(s);
 ReadKey;
 RestoreCRTMode
End.

Приблизительно так, но я не уверен, что всё верно, т. к. Graph.Tpu не кастовал года уж как 2-3... Если что, то спрашивай, тут на такие вопросы ответят точно.