Обработка файла, нужно отформатировать текст по ширине Опции

[Jaxx]

Добрый день.
Программированием начал заниматься недавно (причем по учебе). учусь в универе на программиста, и мне нужно написать курсовую на Паскале. А у меня ничего не получается, так что, если Вам не тяжело, то помогите чем сможете - мне всего 1 прогу нужно накатать.
Задание такое:
Разработать программу "Выравнивание". Исходная информация: текст,
записанный в текстовом файле. Программа выводит этот текст с
выравниванием по краям. Тескт выводится без переносов слов. Параметры
абзаца задаются в диалоговом режиме.
Заранее очень благодарен !

[BlackShadow]

6 минут работы, и вот результат... Вроде то, если что не так - пиши

Код

Var
 f:Text;
 n,i:Integer;
 s,s2:String;

const
 Delimiters=[' ',',','.','!','?',';',':'];

Begin
 Write('Enter Length Of String: ');
 ReadLn(n);
 Assign(f,'In.Txt');
 Reset(f);
 s:='';
 While Not Eof(f) Do
 Begin
   While (Not Eof(f)) And (Length(s)<n) Do
   Begin
     ReadLn(f,s2);
     s:=s+' '+s2
   End;
   If Length(s)>n Then
   Begin
     For i:=n DownTo 1 Do
       If s[i] In Delimiters Then
         Break;
     WriteLn(Copy(s,1,i));
     Delete(s,1,i)
   End
   Else
   Begin
     WriteLn(s);
     s:=''
   End
 End;
 Close(f)
End.