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

[Кибер Чёрт]

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

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


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

[Gregory512]

По поводу матрицы!
запускаем прогу вводим размерность матрицы , далее вводим цифры....
если вводим буквы-то прога говорит что ошибка и требует ввод чисел снова...
в матрице на N-местах как на рисунке должны быть двух значные числа...

далее прога запрашивает на какие числа поменять первую строку.. (пример чисел над матрицей..)
и просит ввод именно таких зисел(точнее разрядность 2-х значные и 3-хзначние)

аналогично и с со столбцом...

и выводит на экран начальную матрицу строу столбец и конечную матрицу.....


Добавлено (через 8 минут)
по поводу меню...
Не обязательно снеговик!!!
это может быть и меню типа
---------------------------------------
прога 1 | прога 2 | прога 3 |
---------------------------------------
|
------------
запуск |
------------
и место снеговика можно запустить алгоритм примера или матрицы.....

а точнее это 1 прога меню и при выборе определенного окошка меню открывается прога( :-) )...

Добавлено (через 6 минут)

  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.

но при задании а=4 в=-10 и в примере sqrt(a+b) корень из минуса не извлекается - ошибка... :-)


Добавлено (через 5 минут)
народ понимающий в паскале!
есть прога тест но надо ве время теста прога предлагает сохнаниться и выйти из теста
при следующем запуске прога спрашиваетимя.. и предлагает закончить тест!!!
подскажите такой алгоритм есть??
вот код проги..

Код

uses crt;
var
f1,t:text;
name,t1,t2:string;
A,c,i:integer;
label 1;
begin       clrscr;
  i:=0;
  assign (f1,'vop.txt');assign (t,'result.dat');
  reset(f1); reset(t);
writeln ('Вы включили небольшой тест!');
writeln ('Как вас зовут?');readln (name);
clrscr;
writeln('сделайте свой выбор');
writeln('1-пройти тест');
writeln('2-Посмотреть результаты');
writeln('3-Выход');readln©;
case c of
1 : begin  CLRSCR;
   WHILE A<3 DO BEGIN  readln(f1,t1);writeln (t1);
   A:=A+1;end; readln©;if c=3 then i:=i+1;
   clrscr; a:=0;
   WHILE A<3 DO BEGIN  readln(f1,t1);writeln (t1);
   A:=A+1;end; readln©;if c=1 then i:=i+1;
clrscr; a:=0;
   WHILE A<3 DO BEGIN  readln(f1,t1);writeln (t1);
   A:=A+1;end; readln©;if c=2 then i:=i+1;
clrscr; a:=0;
   WHILE A<3 DO BEGIN  readln(f1,t1);writeln (t1);
   A:=A+1;end; readln©;if c=1 then i:=i+1;
clrscr; a:=0; clrscr; a:=0;
   WHILE A<3 DO BEGIN  readln(f1,t1);writeln (t1);
   A:=A+1;end; readln©;if c=2 then i:=i+1;
clrscr; a:=0;
   WHILE A<3 DO BEGIN  readln(f1,t1);writeln (t1);
   A:=A+1;end; readln©;if c=2 then i:=i+1;
clrscr;
writeln('Вы набрали:',i,' правильных ответа из 6 ');
append (t);

write (t,name); write (t,' '); writeln (t,i);
close(t); end;
2 : begin   clrscr;
        reset(t);
      repeat
        readln(t,t1);
        writeln(t1);
      until eof(t);
      writeln; readkey; exit;
    end;
3 : EXIT; else exit; end;
readkey;
end.