незнаю как сделать

[Shnurok2009]

Помогите с 2 заданиями плиз
1.Даны действительные числа a, b, c, d, e - стороны пятиугольника. Найти площадь пятиугольника. (Определить процедуру вычисления площади треугольника по его сторонам.)
2.Дан текст, содержащий от 2 до 30 слов, в каждом из которых от 2 до 10 латинских букв; между соседними словами - не менее одного пробела. Вывести все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) перенести первую букву в конец слова; 2) перенести последнюю букву в начало слова.

зарание благодарен

[Vikenty]

где наработки?

[Shnurok2009]

function strReplace(findWhat,replaceTo,inString:string):string;
var sa:str_arr;
        n,i:byte;
        res:string;
  begin
  n:=explode(findWhat,inString,sa);
  res:=sa[1];
  for i:=2 to n do
        res:=res+replaceTo+sa[i];
  strReplace:=res;
end;

function explode(sep,s:string;var a:str_arr):integer;
{ Разбить строку s на кусочки подстрокой sep и записать результат
  в строковый массив str_arr. Сама функция вернет число кусочков
  Например:
        explode('mp','This is an simple example',a)
        вернет число 3, и строки в массиве a:
        a[1]='This is an si'; a[2]='le exa'; a[3]='le';
        explode(' ','This is an simple example',a) - вернет 5 и отдельные
        слова в массиве a 'This','is','an','simple','example' }
var L:byte absolute s;
        i,n,k,d:byte;
  begin
  n:=0;
  for i:=1 to arrStrN do
        a[i]:='';
  k:=Pos(sep,s);
  d:=length(sep)-1;
  while (L*k>0) do
        begin
        inc(n);
        a[n]:=copy(s,1,k-1);
        delete(s,1,k+d);
        k:=Pos(sep,s);
        end;
  inc(n);
  a[n]:=s;
  explode:=n;
end;

procedure zamena*(sl:string[10]);
var
buf:string;
begin
buf:=sl[1];
sl[1]:=sl[legth(sl)];
sl[legth(sl)]:=buf;
end;

а 2 ваще пистец=(