встроеный ассемблер в паскаль-нарисовать квадрат (или фигуру сложнее), управляемый стрелками с клавиатуры

[zombie2478]

помогите пожалуйста сделать задачу:
нужно нарисовать фигуру(например квадрат или сложнее)и перемещать её стрелками на клавиатуре на паскале с вставками ассемблера.

[zombie2478]

у меня есть код но его надо переделывать чтобы в паскале был c встроенным,а не просто assemblerом;там немного не то правда.

[zombie2478]

text	segment 'code' ; 
              assume CS:text,DS: data; 
vertical	proc; 
v:	;    
	push	CX; 
	mov	AH,0Ch; 
	mov	AL,6; 
	mov	BH,0;
	mov	CX,SI;
	int	10h;
	inc	DX;
	pop	CX;
	loop	v;
ret;
vertical	endp;

horizontal	proc;
h:	;
	push	CX;
	mov	AH,0Ch;
	mov	AL,6;
	mov	BH,0;
	mov	CX,SI;
	int	10h;
	inc	SI;
	pop	CX;
	loop	h;
ret;
horizontal	endp;

begin:	;
  mov	AX,00h;
	mov	AL,10h;
	int	10h;
mov cx,3
rect:	push cx
	mov	SI,100;
	add si,i
	mov	DX,100;
	add dx,i
	mov	CX,20;
	call	vertical;
	mov	SI,100;
	add si,i
	mov	DX,100;
	add dx,i
	mov	CX,20;
	call	horizontal;
	
	mov	SI,120;
	add si,i
	mov	DX,100;
	add dx,i
	mov	CX,20;
	call	vertical;
	
	mov	SI,100;
	add si,i
	mov	DX,120;
	add dx,i
	mov	CX,21;
	call	horizontal;
add i,22
pop cx
loop rect	
	
	mov AH,08h
	int 21h
	
	mov AH,00h
	mov AL,03h
	int 10h
	
	mov	AX,4C00h;
	int	21h; 
text	ends;
data segment
i dw 0
data ends

stk segment stack
	dw 128 dup (0)
stk ends

end  	begin;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.