FORTRAN сделать лабу (работа с текстом)

[paltus5]

Помогите сделать программу на фортране. За деньги. Мне не хватает мозга.

Среда программирования:
Microsoft Developer Studio (Fortran PowerStation 4.0).
могу бросить (инсталляция не обязательна).

Задание:
Распечатать введенный текст по строкам так, чтобы в строке было не более M символов и при этом слова в строках помещались целиком (без переноса).
Обеспечить удаление лишних пробелов между словами (если их больше одного).

Мой код:

integer M,i,j,sdvig,nachalo
character*300 IT,FT	! IT - исходный текст, FT - форматированный текст
data IT /'Raspechatat`  vvedennyi tekst po strokam tak, chtoby v stroke bylo ne bolee M &
simvolov i pri etom slova v   strokah pomeshalis` celikom (bez perenosa). Obespechit` &
udalenie lishnih  probelov mezhdu slovami (esli ih bolshe odnogo).'/

!выведем исходный текст
write(*,*) 'ISHODNYI TEKST:'
write(*,*) IT
!уберем лишние пробелы между словами
j=1
sdvig=0
do i=1,len_trim(IT)
  if(' '.eq.IT(i+sdvig:i+sdvig))then
	do while(' '.eq.IT(i+sdvig+1:i+sdvig+1))
      sdvig=sdvig+1
	end do
	FT(j:j)=IT(i+sdvig:i+sdvig)
  else
    FT(j:j)=IT(i+sdvig:i+sdvig)
  end if
  j=j+1
end do
!write(*,*) trim(FT)
write(*,*) 'Vvedite M - kolichestvo simvolov v stroke ne bolee:'
read *,M
write(*,*) 'FORMATIROVANNYI TEKST:'
!выведем текст по строкам (не более М символов в строке)

!на каждой строке - несколько слов
!nachalo=1
!do i=1,len_trim(FT)
!  if(' '.eq.FT(i:i))then
!    if(i-nachalo.lt.M)then
!	else
!	  write(*,*) nachalo,i,FT(nachalo:i)
!	  nachalo=i+1
!    end if
!  end if
!end do

do i=1,len_trim(FT)
!здесь нужно применить ваш мозг
end do
end

Прошу помощи в написании алгоритма, или, может, предложите что-то свое.

[bav03]

Если еще актуально, обращайтесь bav03@list.ru.

[paltus5]

мозг применен, задание решено.

[nickky05]

проверь свою почту, пожалуйста, я насчет этой проги пишу

[nickky05]

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

Если еще актуально, обращайтесь bav03@list.ru.

как выглядит продолжение кода с этого момента do i=1,len_trim(FT) ??