Функция служит для того, чтобы "выцепить" все переменные из формулы, расположить их в алфавитном порядке, чтоб потом можно было засунуть в таблицу

function postroenie (s:ShortString): ShortString;
//функция подсчитывает количество переменных
//и распологает их в алфавитном порядке убирая повторяющиеся
var i,j:byte;
f:shortstring;
begin
//выявляем переменные
f:='';
for i:=1 to length(s) do
begin
if (s[i] in ['a'..'z']) then f:=f+s[i];
end;
//располагаем их в алфавитном порядке
for i:=1 to (length(f)-1) do
for j:=1 to (length(f)-i) do
if f[j]>f[j+1] then begin s[1]:=f[j]; f[j]:=f[j+1]; f[j+1]:=s[1]; end;
s:='';
//убираем повторяющиеся
for i:=1 to length(f)-1 do
if f[i]<>f[i+1] then s:=s+f[i];
postroenie:=s+f[length(f)];
end;

1. Конец процесса
2. Вывод результатов
3. Завершение работы