Помогите решить задачи (или хотя бы часть)

[Nefrit]

1. В строке выражения найти все математические функции и вывести информацию о том, сколько раз встречается каждая из функций. Список функций задайте массивом сnрок.

2. Переписать положительные элементы 3 массивов разной длины в 4-й массив подряд. Вывести все 4 массива на экран.

3. Создать файл, содержащий сведения об ассортименте игрушек в магазине. Структура записи: название игрушки, цена, количество, возрастные границы, например 2-5, т.е. от 2 до 5 лет. (Обработка файлов записей)

4. Создать файл, содержащий сведения об ассортименте игрушек в магазине. Структура записи: название игрушки, цена, количество, возрастные границы, например 2-5, т.е. от 2 до 5 лет. (Обработка текстовых файлов)

5. Дана непустая последовательность символов (строка). Программа должна правильно работать для произвольного набора символов. Входная строка может быть длиннее строки экрана терминала (более 80 символов). Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности символы: буквы от "A" до "Z" и цифры от 0 до 5.



В 3 и 4 заданиях: работа с файлом должна осуществляться через меню, в котором должны быть следующие пункты:

Показать все записи; (в виде таблицы)
Добавить запись;
Удалить запись;
Изменить запись;
Поиск записи (по каким-то критериям);
Сортировка записей (по какому-то одному полю).

[puporev]

Задача 5.

uses crt;
const mn=['A'..'Z','0'..'5'];
var s:string;{dlina do 255 simvolov}
    m:set of char;
    i:integer;
begin
clrscr;
writeln('Ishodnaja stroka s: ');
readln(s);
writeln;
m:=[];
for i:=1 to length(s)do
if s[i] in mn then include(m,s[i]);
writeln('Mnozestvo:');
for i:=48 to 90 do {diapazon kodov pt 0 do Z}
if chr(i)in m then
write(chr(i),' ');
readln
end.

Задача 2.

uses crt;
type Tmas=array[1..50]of integer;
var a,b,c,d:Tmas;
    na,nb,nc,i,k:integer;
procedure Vvod(x:integer; var m:Tmas);
var i:integer;
begin
for i:=1 to x do
   begin
    m[i]:=random(20)-9;
    write(m[i],' ');
   end;
writeln;
end;
begin
clrscr;
randomize;
write('Vvedite razmernost massivov a,b,c:');
read(na,nb,nc);
readln;
writeln('Massiv A:');
Vvod(na,a);
writeln('Massiv B:');
Vvod(nb,b);
writeln('Massiv C:');
Vvod(nc,c);
k:=0;
for i:=1 to na do
if a[i]>0 then
  begin
   k:=k+1;
   d[k]:=a[i];
  end;
for i:=1 to nb do
if b[i]>0 then
  begin
   k:=k+1;
   d[k]:=b[i];
  end;
for i:=1 to nc do
if c[i]>0 then
  begin
   k:=k+1;
   d[k]:=c[i];
  end;
writeln('Massiv D:');
for i:=1 to k do
write(d[i],' ');
readln
end.

[Nefrit]

ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ!!! Вроде всё правильно, работает как надо... Я почти счастлив...

[puporev]

Вот еще задача 1, а остальные извини, там возиться долго.

uses crt;
const mf:array[1..5]of string=('ln','sin','cos','lg','tg');
var s,s1:string;
    i,j,k:integer;
begin
clrscr;
Write('s: ');readln(s);
writeln;
s1:=s;
for i:=1 to 5 do
   begin
     k:=0;
     for j:=1 to length(s1) do
     if j=pos(mf[i],s1) then
        begin
          k:=k+1;
          delete(s1,j,length(mf[i]));
          j:=j-1;
        end;
     writeln('Functja ',mf[i],' vstrechaetsa ',k,' raz');
   end;
readln
end.

[Nefrit]

За что извиняться? 3 задачи решил!! Полностью!! СПАСИБО!! У меня бы на них точно целый день ушёл, если не больше, и не факт, что сделал бы... Уже намного легче!! Остальные ещё сам попробую порешать, может получится что-нибудь, если время останется... Сессия заканчивается, завтра 2 экзамена последних, не успеваю просто...