Pascal Множества, стек, списки, очередь.

[RrR5]

Помогите пожалуйста, народ!
Срочно нужно.
(заранее спасибо)

Множества (сделать надо с помощью множеств):
1. Даны две строки. Из множества символов первой строки удалить символы содержащиеся во второй строке (процедурами).
2. Дан текст, состоящий из арифметических выражений и слов. Подсчитать количество арифметических выражений не содержащих переменных и функций.

Списки, стек, очередь:
1. Составить процедуру смены местами двух последовательных элементов списка (аргументы – указатели на начало, конец списка и на первый из меняемых элементов, результат – указатели на начало и конец нового списка). Опробовать работу процедуры, а затем с ее помощью упорядочить данный список методом «пузырька».

[capta1n]

program capta1n;
uses crt;
type

  link = ^linelink;
  linelink = record
              number : integer;
              next : link
             end;
var
 start, last, p, uk4 : link;

 procedure sort ( var uk1, ukp, uk : link );
 var
  uk2,uk3 : link;
 begin
   if (start<>nil) and (uk<>nil) then
   begin
     uk2:=start;
     while uk2^.next<>uk do uk2:=uk2^.next;
     if uk2^.next^.number > uk2^.next^.next^.number then
     begin
       uk2^.next:=uk^.next;
       uk3:=uk2^.next^.next;
       uk2^.next^.next:=uk;
       uk^.next:=uk3;
       uk:=uk2^.next
     end
   end
 end;
begin

  start:=nil;
  last:=nil;
  while readkey<>#27 do {ESCape}
   if start=nil then
   begin
     new(start);
     start^.number:=0;
     start^.next:=nil;
     last:=start;
     new(last^.next);
     last:=last^.next;
     readln (last^.number);
     last^.next:=nil
   end
   else
   begin
     new(last^.next);
     last:=last^.next;
     readln(last^.number);
     last^.next:=nil
   end;

   if start<>nil then
   begin
     new(last^.next);
     last:=last^.next;
     last^.number:=0;
     last^.next:=nil
   end;

   writeln;
   if start<>nil then
   begin
     uk4:=last;
     repeat
       p:=start^.next;
       while p^.next<>uk4 do
       begin
         sort (start,last,p);
         p:=p^.next
       end;
       uk4:=p
     until uk4=start^.next
   end;

   if start<>nil then
   begin
     uk4:=start^.next;
     while uk4<>last do
     begin
       writeln (uk4^.number);
       uk4:=uk4^.next
     end
   end;
   readln;

end.

[RrR5]

Множества (сделать надо с помощью множеств):
1. Даны две строки. Из множества символов первой строки удалить символы
содержащиеся во второй строке (процедурами).

Вот это нужно сделать с помощью одной или двух из этих процедур:

• ввода с клавиатуры числового множества
• ввода с клавиатуры числового массива
• вывода числового множества на экран
• вывода числового массива на экран
• вычисления количества элементов множества символов
• вычисления количества элементов числового множества
• ввода с клавиатуры множества символов
• вывода множества символов на экран
• вывода массива символов на экран
• перевода числового массива в числовое множество из тех же элементов

Помогите плз, я щас в универе уже просто.

[RrR5]

Каким образом работает проверка?

procedure proverka(k:integer);
var i:integer;
begin
z:=0;
for i:=1 to N do begin
if (p^[i]=k) then z:=z+1;end;
write(' ',z); if z<min then min:=z;
if z>max then max:=z;
end;

[RrR5]

И упорядочивание:

procedure poryadok;
var i,j:integer;
begin
for i:=1 to N do begin
for j:=N downto 1 do
begin
if p^[j-1]>p^[j] then
begin
x:=p^[j-1];
p^[j-1]:=p^[j];
p^[j]:=x;
end;
end;