Форматирование текстового файла с приведением всех строк к одной заданной длине

помогите пожалуйста сделать задание:
Форматирование текстового файла с приведением всех строк к одной заданной длине путем вставки пробелов (при необходимости) и переноса слов целиком без использования знака "-". Короткие строки программа должна объединять. Программа должна также обрабатывать директиву "начало абзаца", разбивать файл на страницы заданного размера, нумеровать страницы. Начало абзаца должно отмечаться отступом первого символа строки на 5 позиций вправо. Пример, иллюстрирующий работу программы:

Исходный файл:
┌─────────────────────────────────────── ────────── ───────────────┐
│ uses CRT; │
│ const │
│ n1=5; n2=6; n3=5; {число вариантов по каждому шагу задания}│
│ NStud=30; { число студентов в группе } │
│ var │
│ i,j : integer; │
│ FName : string; │
│ f : text; │
│BEGIN │
│ Randomize; │
└─────────────────────────────────────── ────────── ───────────────┘
Файл-результат при длине записи 30:
┌──────────────────────────────┐
│uses CRT; const n1=5; n2=6;│
│n3=5; {число вариантов по│
│каждому шагу задания}│
│NStud=30; { число студентов в│
│группе } var i,j : integer;│
│FName : string; f : text;│
│BEGIN Randomize; │
└──────────────────────────────┘
Вариант меню горизонтальное со скроллингом
Заранее спасибо!!!