Расставить пробелы.

[Cryptic22]

Нужно в конечном тексте расставить пробелы также как и в начале. Думаю можно попробовать подсчитать количество символов в начальном слове. Затем расставить также как и в начале пробелы.
program ghj;
const
A: array[1..99] of string = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я','а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я','а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я');

var
day,v,b1: integer;
n,b,v1:string;
i,i1,i2:byte;

Begin



v:=3;

b:='абвгдеёжзийклмнопрстуфхцчшщъыьэ юя';

Writeln('Введите одну русскую букву');
Readln(n);



for i:=1 to length(n) do

begin



v:=v+1;

day:=pos(n[i],b);

//Write(day,' ');

day:=day+v;
v1:=A[day];//Составление слова по символам


if n[i]<>' 'then
//writeln(v);
write(v1);

if n[i]=' 'then

v:=3;



end;
end.