Редактирование интеграла и символы Опции

[}0pa]

1. Вот это функция вычисляющая определенный интеграл методом правых прямоугольников. Преподаватель сказал, что можно испраить немного эту функцию, чтобы получить оптимальный вариант. Как это сделать?

Код

function prav(a,b:real;n:integer):real;
var
  s,x:real;
  dx:real;
  xb:real;
  i:integer;
begin
dx:=(b-a)/n; s:=0; xb:=b;
   for i:=1 to n do
     begin
       x:=xb-i*dx;
       s:=s+f(x)*dx;
     end;
  prav:=s;
end;

---------------------------------------------------------------------
2.Используя ЦЕПОЧКИ СИМВОЛОВ (не стринги), вывести все слова начинающие на "М". Слова разделены пробелами. Стринги не использовать, т.к. сам уже сделал