Форматирование текстового файлы

[dcLout]

Всем доброго времени суток.У меня есть задание.Собственно говоря, нужно сформировать текстовый файл, так ,что бы в строку записывалось например только 5 символов.Есть код функции но до ума я её не могу довести.Пожалуйста помогите кто может:

function format(x : string):string;
var
b : array [1..5] of char;
s1 : string;
i : integer;
begin
s1 := '';
for i := 1 to length(x) do
   While i <= 5 do
     if length(x[i]) <= 5 then
       begin
      format := copy(x,5,length(x));
      delete(x,1,5);
   if s1 <> '' Then
     begin
      x := s1+x;
     end
 
else
s1 := x;
end;
end;

Собственно проблема состоит в том,что я ни как не могу перенести лишние символы текущей строки,в начало следующей строки.Например есть строки :
qwertyui
12345678
wert

Нужно что бы получилось:
qwert
yui12
34567
8wert

[Slym]

function Trim5(var AInput: string): string;
begin
  Result := Copy(AInput, 1, 5);
  AInput := Copy(AInput, 6, MaxInt);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
  s:='qwertyui12345678wert-';
  Memo1.Lines.Clear;
  while length(s)>0 do
    Memo1.Lines.Add(Trim5(s));
end;

[dcLout]

Сообщение от Slym

function Trim5(var AInput: string): string;
begin
  Result := Copy(AInput, 1, 5);
  AInput := Copy(AInput, 6, MaxInt);
end;

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
  s:='qwertyui12345678wert-';
  Memo1.Lines.Clear;
  while length(s)>0 do
    Memo1.Lines.Add(Trim5(s));
end;

Но этот код на делфи,а мне нужен на паскале. Я видно не до рассказал.
У меня строки считываются из одного файла,а вот отформатировать их нужно и записать уже во втором файле.