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

[Jaxx]

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

[Altair]

Код

Program FORMAT_TEXT;
Uses Crt;
Var
I:longint; {­®¬Ґа н«-в  вҐЄбв®ў®Ј® д « }
F:File of byte; {д ©« ⥪бв®ўл©, Є ¦¤л© н«-в -Є®¤ ASCII }
filename:string;{Їгвм Є д ©«г}
el,ke,j,otst,g:byte;
{
  el  - Є®¤ бЁ¬ў®« , ўлў®¤Ё¬®Ј® ­  нЄа ­
  ke  - ¤«Ё­­  ўлў®¤Ё¬ле бва®Є
  j   - бзҐвзЁЄ, ­Ґ®Ўе®¤Ё¬л© ¤«п бў®ҐўаҐ¬Ґ­­®Ј® ЇҐаҐў®¤  Є аҐвЄЁ
  otst- ®вбвгЇ ®в Єа п нЄа ­ 
  g   - бзҐвзЁЄ, ®в¬ҐапойЁ© «Ґўго Ја ­Ёжг
}
Begin
ClrScr;
Write('‚ўҐ¤ЁвҐ Ё¬п зЁв Ґ¬®Ј® д ©« :'); readln(filename);
Assign(F,filename);
{$I-} reset(f); {$I+}
If IOResult<>0 then
begin
 {Їа®Ё§®и«  ®иЁЎЄ  ЇаЁ ®вЄалвЁЁ д ©«  ... }
 writeln('ERROR - FILE NOT FOUND OR UNKNOWN ERROR');
 halt {§ ўҐа襭ЁҐ а Ў®вл Їа®Ја ¬¬л}
end;
Write('ўўҐ¤ЁвҐ ¤«Ё­­г бва®Є, ўлў®¤Ё¬ле ­  нЄа ­ ');
readln(ke);
write('ўўҐ¤ЁвҐ ®вбвгЇ ®в ЏђЂ‚Ћ‰ Ја ­Ёжл нЄа ­ ');
readln(otst);
writeln;
{¤Ґ« Ґ¬ 1 ®вбвгЇ}
for g:=1 to otst do write(' ');
{зЁв Ґ¬ д ©« ...}
for I:=1 to filesize(f) do
begin
 {ЇҐаҐў®¤Ё¬ ­  ®зҐаҐ¤­®© н«-в}
 seek(f,(I-1));
 {зЁв Ґ¬ н«-в}
 read(f,el);
 {ўлў®¤Ё¬ бЁ¬ў®« ­  нЄа ­, Ґб«Ё нв® ­Ґ гЇа ў«пойЁҐ б¬Ёў®«л}
 If (el<>13) and (el<>10) then begin write(CHR(el)); inc(J,1) end;
 {ЇҐаҐў®¤Ё¬ Є аҐвЄг, ¤Ґ« Ґ¬ ®вбвгЇ}
 If J=ke then
 begin
  J:=0;
  writeln;
  for g:=1 to otst do write(' ')
 end;
end;
writeln('ђ Ў®в  Їа®Ја ¬¬л § ўҐа襭 , ­ ¦¬ЁвҐ «оЎго Є« ўЁиг...');
{¦¤Ґ¬ ­ ¦ вЁп Є« ўЁиЁ, ¬®¦­® § ¬Ґ­Ёвм ­  readkey}
while not keypressed do;
end.

Если есть вопросы, задавайте.