Власть, краска, склон, полк, тепло, беда, экран. уберите в каждом слове одну согласную букву так, чтобы получилось новое слово.

власть - невозможно получить какое-нибудь современное слово. В словаре Даля встречается ласть. В интернете есть вариант задания. в котором на месте этого слова написано всласть, из которого можно получить власть.краска - каска, красасклон - слон, клонполк - полтепло - телобеда - едаэкран - невозможно получить слово. Можно убрать гласную э и получить кран, но это не соответствует условию. Если убирать согласные, получаются бессмысленные эран, экан и экра.

Var
  S, chislo: string;
  i,A,B,C,E: integer;
Begin
  B := 0;
  WriteLn('Введите выражение: ');
  ReadLn(S);
  i := S.length;
  While (i > 0) do
  begin
    Case S[i] of
      '+':
        begin
          val(chislo,A,E);
          B := B + A;
          chislo := '';
        end;
      '-':
        begin
          val(chislo,A,E);
          B := B - A;
          chislo := '';
        end;
      else
        chislo := S[i] + chislo;
    End;
    i := i - 1;
  end;
  if (chislo <> '') then
  begin
    val(chislo,A,E);
    B := B + A;
  end;
  WriteLn(B);
End.

1) создание, подготовка к работе, а так же определение параметров функции
2) a) нет возвращаемого значения, то есть функция что-то делает, но не возвращает ничего 
    б) возвращает то значение, которое вы скажете вернуть, можно использовать данный тип функции, как переменную, например, функция возвращает принятое число в случае, если это число больше нуля, -1, если меьше нуля. Таким образом можно использовать ее в любых конструкция, к примеру, условных.

если function()>0 то вывести число иначе вывести "отрицательное"