текстовой файл, разбивка Опции

[Work Group]

не можите помочь с одной задачкой....делаю делаю..полная фигня получается...
задача заключается в том,что бы в результирующий файл переписать содержимое текстового файла, разбив строки,содержащие более n символов на несколько...то есть строки в файле должны содержать n символов

[Work Group]

прога берёт текстовой файл,и делит строки на n-ое число символов за исключением последней,и переписывает всё в новый текстовой файл...
проблема в том,что если в строке 12 символов,а мы берём n равное 5, то будет получаться строка с 2-мя символами,а такое должно быть только в конце..

Код

uses crt;
var
t:text;
a:array[1..100]of string; t1,t2: string;
k,n,i:integer;
begin
writeln ('введите путь к файлу');
readln (t1);
assign(t,t1);
reset(t);
writeln ('введите длинну строк');
readln(n);
while not eof(t) do
begin
inc(k);
readln(t,a[k]);
end;
close(t);
writeln ('введите путь к новому файлу');
readln (t2);
assign(t,t2);
rewrite(t);
for i:=1 to k do
begin
  while length(a[i])>n do
   begin
   writeln(t,copy(a[i],1,n));
   delete(a[i],1,n);
   end;
  if length(a[i])>0 then  writeln(t,a[i]);
  if length(a[i])<n then  writeln(t,copy(a[i+1],1,n-length(a[i])));
  delete(a[i+1],1,n-length(a[i]));
  end;
  close (t);
  end.

проблемма в этих строчках

Код

if length(a[i])<n then  writeln(t,copy(a[i+1],1,n-length(a[i])));
  delete(a[i+1],1,n-length(a[i]));

помогите пожайлуста