перевод числа в десятичное,вывод на экран и тд Опции

[Catty]

в этой проге нужно перменную TotalCount вывести на екран в виде десятичного числа (без процедур, функций, макросов и пр)

data		  SEGMENT 
	
	MyArray	DB	1, 2, 3, 1, 2, 3, 1,
	TotalCount	DB	 0
		ARRAY_size	   equ   7
		 
		

code		  SEGMENT
			  ASSUME   cs:code, ds:data
begin:
	
	MOV	AX, data
	MOV	DS, ax

		lea SI,MyArray
		mov bl,[SI+ARRAY_size-1]
		mov cx,ARRAY_size

	   Sloop:
		   LODSB
		   cmp al,bl
		   jne  NextChar
		   inc  TotalCount

	   NextChar:
		   LOOP Sloop
					
						  




			MOV	  ax,4c00h
			int	  21h

code		  ENDS
			  end	  begin 

2. В масиве A[m] заменить все нулевые елементи (крщму первого) на значения предыдущего елемента.
масив ввести с клавы и вывести потом на экран, и еще ту же самую задачу сделать с помощью паскаля. Вотя пробовала , но не сложилось....

Uses Crt;
var  a:array[1..10] of integer;
	 m:byte;

begin
ClrScr;
for m:= 1 to 10 do
 read(a[m]);


  for m:= 1 to 10 do
 begin
 asm
 mov SI,word ptr m
 mov ax, word ptr a[SI+1]
 cmp ax,0
 jnz @No
 mov bx,word ptr a[SI]
 mov word ptr a[SI+1],bx
 @No: mov ax, word ptr a[SI+1]
 end;
 end;
 for m:=1 to 10 do
 write(a[m]);
 end.