Вычисление количества лексем в строке с возможностью задания списка символов-разделителей, ХЕЛП !!! Опции

[Кибер Чёрт]

Помогите нужно срочно решить следующею задачу:

---------------------------------------------------------------------------------------------------------------
I. Составить программу на языке Pascal, описывающую приведенную ниже проблемную ситуацию и реализующую следующие функции
1.1. Проблемная ситуация:
В области прикладного программирования необходимо создать модуль (.ТРU). содержащий перечисленные ниже процедуры, функции и т.д.. а также тестирующую программу, наглядно демонстрирующую возможности этого модуля.
1.2.ФУНКЦИИ программы:
Вычисление количества лексем в строке с возможностью задания списка символов-разделителей
Выбор (и возврат в качестве результата функции) лексемы по ее номер}
Замена лексемы с заданным номером на другую лексем}
Проверка наличия подстроки в строке и возврат в качестве результата (в случае обнаружения) номера позиции, с которой начинается подстрока
Преобразование символов из строчных в прописные и наоборот, включая символы кириллицы
---------------------------------------------------------------------------------------------------------------


Народ нужно действительно срочно а то меня из технаря на… вышибут. Войдите в положение, помогите кто знает. Я уже весь инет облазил и не чего подобного не нашёл.

[Кибер Чёрт]

Большёе спасибо Zxzc программу с формулой я доделал работает она отлично.

Код

Program I3;
uses  crt;
Var
ok:boolean;
Z:real;
A,B,C,D:integer;
label 1;
Begin
1:clrscr;textcolor(15);
writeln ('//===========================================================\\');
writeln ('||        Z=sqrt(C+D)/sqrt(A+B)+sqrt(D+A)/sqrt(B+A)          ||');
writeln ('||             Введите значение чисел A,B,C,D                ||');
writeln ('||   Cуммы чисел A+B, A+D, C+D  должны быть положительны.    ||');
writeln ('\\===========================================================//');

{$I-}
ok:=false;
repeat
A:=0; B:=0; C:=0; D:=0;
write('A:='); read(A);
write('B:='); read(B);
write('C:='); read(C);
write('D:='); read(D);

  case IOResult of
   0: OK:=true;
   106: writeln('Ошибка !!! Повторите ввод чисел');
  end
until Ok;
{$I+}
if C+D<0 then begin writeln('Ошибка !!! Нажмите "Enter" и повторите ввод чисел');readkey; goto 1 end;
if A+B<0 then begin writeln('Ошибка !!! Нажмите "Enter" и повторите ввод чисел ');readkey; goto 1 end;
if A+D<0 then begin writeln('Ошибка !!! Нажмите "Enter" и повторите ввод чисел');readkey; goto 1 end;
Z:=0;
Z:=sqrt(C+D)/sqrt(A+B)+sqrt(D+A)/sqrt(B+A);
textcolor(5);
write ('Ответ:'); write (Z:1:0);
readkey;
END.