Создание и редактирование текстового файла

[sasha0123]

Доброго времени суток!
У меня вот такая проблемка я с помощую програмы создал текстовый файл записал в него текст.
Мне надо вировнять текст по крайней левому пределу и зделать етот файл только для чтения.
Вот код программы:

.8086
.MODEL SMALL
.STACK 100h
.DATA
Count EQU 5
Buffer DB 80, ?, 80 DUP (' ')
Handle DW ?
PathName DB 'kn-26.docx',0
message1 DB 'Input data->',0dh,0ah,'$'
message2 DB 'Error!!',0dh,0ah,'$'
message3 DB 'Output data->',0dh,0ah,'$'
CRLF DB 0dh,0ah,'$'
.CODE
.STARTUP
LOCALS
call CreateFile
call WriteFile
call CloseFile
.EXIT 0
;----------------------------------------------------------------------------------------
CreateFile Proc Near
mov ah,3ch
mov cx,0 ; атрибут=0 (звичайний файл)
lea dx,pathname
int 21h
jc @@1
mov handle,ax ; дескриптор файла
ret
@@1: call Error
ret
CreateFile endp
;----------------------------------------------------------------------------------------
WriteFile Proc Near
lea dx,message1
mov ah, 9h
int 21h
mov cx,count
@@1: push cx
; очищення буфера
mov al,' '
push ds
pop es
mov di,offset buffer+2
mov cx,80
cld
rep stosb
; читання рядка з клавіатури
mov ah,0ah
lea dx,buffer
int 21h
; перехід на новий рядок
mov ah,9h
lea dx,CRLF
int 21h
; кінець рядка в буфері є символом CR з кодом 0dh
; дописуємо символ LF (0ah) після символа 0dh (отримуємо перехід на новий рядок)
mov al,0ah
push ds
pop es
mov di,offset buffer+2
xor bx,bx
mov bl, Byte Ptr [buffer+1] ; реальна кількість символів
add di,bx
inc di
stosb
; si – кількість символів + 2 (0dh,0ah)
mov si,bx
add si, 2
; записати рядок у файл
mov ah,40h
mov bx,handle
mov cx, si
lea dx,buffer+2
int 21h
jnc @@2
call Error
@@2: pop cx
loop @@1
ret
WriteFile endp
;----------------------------------------------------------------------------------------
CloseFile Proc Near
mov ah,3eh
mov bx,handle
int 21h
ret
CloseFile endp
;----------------------------------------------------------------------------------------
OpenFile Proc Near
mov ah,3dh
mov al,0; режим: 0- read, 1- write, 2-read/write
mov cx,0; атрибут файла
lea dx,pathname
int 21h
jc @@1
mov handle,ax
ret
@@1: call Error
ret
OpenFile endp
;----------------------------------------------------------------------------------------
Error Proc Near
mov ah,9h
lea dx,message2
int 21h
Error endp
;----------------------------------------------------------------------------------------
END