Написать программу, которая рисует диагональные полосы

program lab2;
uses dos, crt;
var i:integer; regs: registers;
{======================================= ======}
function sgn(a:real):integer;
begin
if a>0 then sgn:=+1;
if a<0 then sgn:=-1;
if a=0 then sgn:=0;
end;
{======================================= ======}
procedure set_display_mode; {Устанавливает режим экрана¬ 320x200}
begin
with regs do {используем с переменной regs }
begin
{Задаем режим экрана, указывая нужный режим в регистре AX}
ah:=0; {ah = 0 - установка режима экрана }
al:=$D; {изменяем нужную часть регистра - номер режима экрана ¬ }
intr($10, regs); {вызываем прерывание}
end;
end;
{======================================= =========}
procedure show_diagonal_line(x, y, x1, y1, width: integer;
color: byte; dir: boolean);
{ x - координата по x
y - координата по y
width - ширина линии
color - цвет линии
dir - ¬ направление отрисовки
}
var x_tmp, x1_tmp, y_tmp, y1_tmp, px, py : integer;
y_sh : real;
u,s,v,d1x,d1y,d2x,d2y,m,n:real;

begin
y_sh:=0;
x_tmp := x; { сохраняем координату y }
x1_tmp := x1;{ -\\-\\-\\- }
y_tmp := y; { -\\-\\-\\- }
y1_tmp := y1;{ -\\-\\-\\-}

with regs do
while width <> 0 do {пока ширина не равна¬ 0}
begin
if (dir = true) then
begin
inc(x_tmp);
y1_tmp:=y1-round(y_sh);
end else
begin
y_tmp:=y+round(y_sh);
dec(x1_tmp);
end;

u:= x1_tmp - x_tmp;
v:= y1_tmp - y_tmp;
d1x:= SGN(u);
d1y:= SGN(v);
d2x:= SGN(u);
d2y:= 0;
m:= abs(u);
n:= abs(v);
if not (m>n) then
begin
d2x := 0 ;
d2y := SGN(v);
m := abs(v);
n := abs(u);
end;
s := int(m / 2);
px:=x_tmp;
py:=y_tmp;
for i := 0 to round(m) do
begin
{ устанавливаем параметры точки в регистры процессора }
ah := $C; { ah = $C - ¬ нарисовать точку}
al := color; { цвет точки}
cx := px; { координата X }
dx := py; { координата Y }
intr($10, regs); { вызываем прерывание 10h }
s := s + n;
if not (s<m) then
begin
s := s - m;
px := px + round(d1x);
py := py + round(d1y);
end
else
begin
px := px + round(d2x);
py := py + round(d2y);
end;
end;

dec(width); {уменьшаем ширину}
y_sh := y_sh + 0.625;

end;
end;

begin
set_display_mode;
show_diagonal_line(-64, 0, 320, 240, 128, 15, true);
show_diagonal_line(64, 0, 320, 160, 128, 4, true);
show_diagonal_line(192, 0, 320, 80, 128, 10, true);
show_diagonal_line(-192, 0, 320, 320, 128, 7, true);
show_diagonal_line(133, 0, 315, 200, 3, 128, true);
readkey;
end.