Работа со строками

[KatruKot]

Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы "." (точка).

Вначале реализовал программу в паскале, помогите пожалуйста исправить что не так.

var
s:string;
n,d,i:integer;
begin
cls;
writeln('Введите строку');
readln(s);
writeln('Введите число');
readln(n);
d:=length(s);
if d>n then s:=copy(s,d-n+1,n)
else if d<n then
repeat
s:='.'+s;
until length(s)=n;
writeln(s);
end.

Вот в ассемблере пытался...

program lab3_var9;
uses windows;
var
s:string;
d, n,i,k:byte;
procedure InitString;
asm
        mov al,0
        mov ecx,255

        lea edi, s
        mov byte ptr [edi],255
        rep stosb
end;
begin
writeln(s);
asm
call InitString;
end;

write('Введите строку ');
readln(s);

write('Введите число = ');
readln(n);

asm


mov bl,byte ptr n
mov ax,word ptr s
scasw
jb @label1
ja @label2

        @label1:
        end;
        d:=length(s);
        s:=copy(s,d-n+1,n);

        @label2:
        s:='.'+s;
        n:=length(s);
        writeln(s);


end.
end;