Выравнивание текста по правому краю

[Chowder]

Выравнивание текста по правому краю
Не могу написать часть кода, что бы вставить в эту программу.
Помогите пожалуйста.

var w,j:integer;
str:string;
MyFile:TextFIle;
MaxCountCh:integer;
begin
MaxCountCh:=75;
assign(MyFile,'C:\text.txt');

begin
repeat
writeln('Выберите способ выравнивания');
writeln('1-по ширине');
writeln('2-по правому краю');


read(w);
until w in [1..2];
case w of

1:begin
reset(MyFile);
while not eof(MyFile) do
begin
  read(MyFile,str);
     if Length(str)<=MaxCountCh
       then writeln(str)
           else
    begin
       for j:=1 to length(str) do
      begin
        write(str[j]);
            if (j=MaxCountCh) or (j mod MaxCountCh=0) then writeln;
      end;
     writeln;
     end;
       readln(MyFile);
   end;
   end;
2:begin

  end;
end;
end;
end.

[Stilet]

Выравнивание можно сделать так:

while Length(str)<MaxCountCh do str:=' '+str;