Pascal. Модули.

[n0rma1]

Здравствуйте уважаемые пользователи и администрация!!! Прошу у вас помощи в решении задачи на языке Pascal в разделе "модули". Заранее спасибо Вам!
___________________________________ _____________________________
Создать модуль и разработать ниже перечисленные функции, затем выполнить задание с текстом.

• Задание:
  WordN – выделяет N-ное слово
  MyMove – перенести заданною подстроку в заданною позицию
  CountWord– определяет количество слов в тексте
  MyInsert – вставка подстроки с заданной позиции
  Дан текст. Попарно переставить слова в этом тексте.

[RUSt88]

готов выполнить

[Stilet]

Не ну в модуль не сложно слить функции.
Чем помочь то? Напиши хотя бы функции решающие твои задания.

[n0rma1]

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

Не ну в модуль не сложно слить функции.
Чем помочь то? Напиши хотя бы функции решающие твои задания.

в том то и проблема, что функций нет. Вообще со строковыми операторами я не дружу, почему то не идёт в голову мне это.

Помогите пожалуйста, так и стоит долгом данная задача, никак не могу разобраться

[Stilet]

Допустим:

MyMove – перенести заданною подстроку в заданною позицию

  procedure MyMove(Substr:string;i:integer;var dest:string);
  var e:string;k:integer;
  begin
   k:=pos(Substr,dest);
   e:=copy(dest,k,length(Substr));
   delete(dest,k,length(Substr));
   Insert(e,dest,i);
  end;

CountWord– определяет количество слов в тексте

http://www.programmersforum.ru/showt...oto=nextoldest