Паскаль помогите пожалуйста

[RrR5]

Мне завтра поледний день сдачи всех работ.
Помогите пожалуйста решить несколько неполучившихся задач.

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

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

И вот еще, объясните плз как именно работает данная процедура:

Procedure sort(n:integer);
begin
for i:=1 to n do begin
for j:=n downto 1 do begin
if itog[j]<itog[j+1] then begin
z:=itog[j];
itog[j]:=itog[j+1];
itog[j+1]:=z;
end;
end;

[capta1n]

данный алгоритм сортировки вставками - при каждом просмотре ищется место в уже упорядоченной части массива для элемента - он вставляется в это место и так до конца, пока массив не упорядочится полностью

[RrR5]

это ведь сортировка методом пузырька?

[capta1n]

1)

program stroka;
var
 str1,str2 : string;
 i : byte;
begin
  writeln ('First: ');
  readln (str1);
  writeln ('Second: ');
  readln (str2);
  for i:=1 to length(str2) do
   while pos(str2[i],str1) <> 0 do delete (str1,pos(str2[i],str1),1);
  writeln (str1);
end.

это ведь сортировка методом пузырька?

данный алгоритм сортировки вставками

[RrR5]

большое спасибо!

[capta1n]

при сортировке пузырьком вы сравниваете рядом стоящие элементы, и , если они удовлетворяют условию их обмена, они меняются местами - так, поочередно сравнивая, каждый элемент всплывает как пузырек в сторону условия

[RrR5]

А можно еще 2-ую из множеств и 1-ую из списки, стек, очередь?

[capta1n]

www.programmersforum.ru/showthread.php?t=36911