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

[Кибер Чёрт]

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

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


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

[Zxzc]

Что понял - то сделал...
Вот что понял: то что написано про ввод - это наверное для всех программ... Ввод я так понимаю с клавиатуры...
Числа A b c d то бишь...
Что не понял: что это за цифры вокруг матрицы??!
Меню на какую хотя бы тему? Снеговик вообще ввел в ступор...

Предусмотреть предупреждающие надписи на реакцию программы

Это еще что?

А пока:

var a,b,c,d,z:real;
    ok:boolean;
{I think real 'cose we'll must counted digitals in thats variables}
begin
 {$I-}
 ok:=false;
 repeat
  readln(a,b,c,d);
  case IOResult of
   0: OK:=true;
   106: writeln('To, chto vi vveli ne yavlyaetsya chislom tipa real... Povtorite vvod vsex chisel...');
  end
 until Ok;
 {$I+}
 z:=sqrt(c+d)/sqrt(a+b)+sqrt(d+a)/sqrt(b+a);
 writeln(z);
end.