Formating in Turbo Vision, Вывод элемента с правого края Опции

[FX]

Помогите пожалуйста с одной маленькой (для меня) проблемой...
Мне нужно вывести записи на эран, где элементы "god" и "cena" должны выводится не с левого края а с правого своей области.
Элементы все string.
Знаю как в числовых элементах делается:
god,'':(11-length(god))
а с символьными не могу разобратся...

cena:string[8];
god:string[11];


Procedure TInterior.ReadFile;
    var k:integer;
        s,shapka:String;
        data:autopark;
        t:text;
begin
    PS:=New(PStringCollection,Init(100,10));
    seek(f,0);
    shapka:='       Название     |     Марка     |   Год   |  Кузов  |   цвет   |  цена   ';
    PS^.insert(NewStr(shapka));
    while not (EOF(f) or LowMemory) do
    begin
         read(f,data);
         with data do
         begin
              s:=nazvanie;
              while Length(s)<Lnazvanie do s:=s+' ';
              s:=s+marka;
              while Length(s)<Lnazvanie+Lmarka do s:=s+' ';
              s:=s+god;
              while Length(s)<Lnazvanie+Lmarka+Lgod do s:=s+' ';
              s:=s+kuzov;
              while Length(s)<Lnazvanie+Lmarka+Lgod+Lkuzov do s:=s+' ';
              s:=s+cvet;
              while Length(s)<Lnazvanie+Lmarka+Lgod+Lkuzov+Lcvet do s:=s+' ';
              s:=s+cena;
         end;
    if s<>' ' then PS^.Insert(NewStr(S));
    end;
    Location:=0;
end;

[FX]

Да что такое!


Выводится она у меня так:
Название..|..Марка..|....Год....|..Кузов..|..Цвет...|..Цена
Опель........Омега.....1995........Седан.....Белый...8000

А нужно чтоб было так:
Название..|..Марка..|....Год....|..Кузов..|..Цвет...|..Цена
Опель........Омега............1995.Седан.....Белый......8000