Помогите пожалуйста решить еще одни задачки по Паскалю!)

[tyt1991]

1.Подсчитать во ввденном тексте количество открывающихся и закрывающихся скобок. Вывести сообщение о нехватке той или иной скобки сообщения и порядок если их поровну.
2. Записать все слова текста в одномерный строковый массив. Найти и вывести семмитричные слова
И
1.Сформировать множество A,B и С, базовый тип которых 1..25, по заданному числу элементов для каждого множества. Определить является ли одно из них подмножеством другого множества и найти число элементов принадлежащих разности этих множеств. в каком из множеств больше элементов, и вывести на печать те элементы базового интервала, которые не входят в него!
2. Сформировать множество М из букв, встречающихся менее чем в половине слов текста F1. Формирование множеств произвести через random. Вывести на печать оба множества до изменения и после!
Особенно напрягают очень задачи про множества!(((

[Gorychev]

Сам что небудь сделал?

[Stilet]

1.Подсчитать во ввденном тексте количество открывающихся и закрывающихся скобок. Вывести сообщение о нехватке той или иной скобки сообщения и порядок если их поровну.

Навскидку допустим так:

var a,b,i:integer; s:string;
begin a:=0;b:=0;
 s:='(2+6)/(85+65)';
 i:=1; while (i<=length(s)) do begin
   if s[i]='(' then inc(a);
   if s[i]=')' then inc(b);
 end;
if a>b then {Открывающих больше}
if a<b then {Закрывающих больше}
if a=b then {Поровну}
end.

[Gorychev]

Навскидку допустим так:

Можно сократить одну переменную (b). Вместо:

 if s[i]=')' then inc(b);

записать

 if s[i]=')' then dec(а);

отгда, если а=0 - поровну, а>0 - открывающих больше, а<0 - закрывающих больше

[tyt1991]

Ой, блин, сппасибо, вроде легко!) нет, ни че не сделала!) меня пугает множество...((((

[Gongled]

Мой вариант для второго задания (симметричные слова, они же палиндромы).

program pr2;
uses CRT;
const
n = 100;

var
input : text;
cw : integer;
c : char;
a : array[1..n] of string;

{Процедура проверки слова}
procedure check_word(str : string);
var
key : boolean;
j : integer;
begin
key := true;
     for j:=1 to (length(str) div 2) do
     if str[j] <> str[length(str)-j+1] then
     begin
          key := false;
          break;
     end;

     if key then writeln(str,' - Симметрично')
     else writeln(str+'!',' - Не симметрично');
end;

begin
clrscr;

assign(input,'C:\list.txt');
reset(input);

{Записываем слова в массив}
repeat
      inc(cw);
      repeat
           read(input,c);
           a[cw] := a[cw] + c;
      until (c = ' ') or eof(input);
      if c = ' ' then delete(a[cw],length(a[cw]),1);
      
      check_word(a[cw]);
      
until eof(input);

close(input);
end.