Пользуясь только процедурой PutPixel, создать процедуру вывода на экран горизонтальной линии заданного цвета по заданным координатам — Pascal(Паскаль)

program cyb_53;
uses
 Crt, Graph;
var
 a, b, c, cl: integer;
procedure Pixel_line(x1, x2, y, color: integer);
var
 Driver, Mode, Error, i: integer;
begin
 Driver:= Detect;
 InitGraph(Driver,Mode,'');
 Error:= GraphResult;
 if Error <> 0 then
  writeln(GraphErrorMsg(Error))
 else
  begin
   if x1 > x2 then
    begin
     i:= x1;
     x1:= x2;
     x2:= i;
    end;
   for i:= x1 to x2 do
    PutPixel(i,y,color);
  end;
 readln;
 CloseGraph;
end;
begin
 ClrScr;
 writeln('Vvedite koordinatu gorizontalnoi priamoi: ');
 write('x1 = ');
 readln(a);
 write('x2 = ');
 readln(b);
 write('y = ');
 readln(c);
 writeln('Vvedite cvet priamoi: ');
 write('color = ');
 readln(cl);
 Pixel_line(a,b,c,cl);
end.