Работа со строками, разбить строку на-слова-буквы Опции

[WiZZarD]

Каким образом можно разбить строку на слова, а затем слова на буквы?Строка, кол-во слов и буквы вводятся...
Нужно ли находить длинну строки и кол-во символов в ней? И как сделать так, чтобы если ты ввел строку из 50 символов, она делилась на 4 слова по 7 букв?

[WiZZarD]

вот тут конечно ошибка но хочется узнать я правильно делаю или нет?

program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;

type s=string[80];
procedure insert(s:string;var s2,s1:string;i:integer);
var
m:integer;
begin
Writeln('Enter the String...');
readln(s);
Writeln('Enter the m...');
readln(m);
for m:=1 to length(s) do
s1:=' ';
s:='maxwelld';
insert(s,s1,m);
end;
end.