Выравнивание строк(помогите) Опции

[Forza]

В тексте из "n" строк выравнять строки так , чтобы каждая строка имела длину 65 символов. Выравнивание производится за счёт вставки пробелов.
_______________________________________________________________
Program lab;
Var
s:array [1..100] of string;


n,i:integer;
begin

writeln('Vvedite text');
i:=0;
repeat
i:=i+1;
readln(s[i]);
until s[i]='';
n:=i-1;
for i:=1 to n do

if length(s[i])>65 then
writeln('Переход на новую строку')
else
writeln('Вставка пробелов');
insert('',s[i],1);
writeln;
for i:=1 to n do
writeln(s[i]);
readln;



end.

__________________________________________________________________
Подскажите как сделать переход на новую строку если длина превысила 65.