Помогите решить 2 задачи на Паскале!!!

[Zero]

1)Дана строка s из одинаковых символов, постройте функцию пользователя schit (s), которая формирует из s строку следующего вида "p(n)", где p повторяющийся символ, а n число символов в строке s.
2) Даны длины всех сторон четырехугольника x,y,z,t и длина диагонали d. Найдите площадь выпуклого четырёхугольника. При решении задачи использовать процедуры пользователя.

Эти задачи нужно решить до среды...

Зарание спасибо...

[Plague]

ко 2 задаче
формула Герона (как функция) тут поможет
т.е нужно найти площади 2 треугольников
x,y,d и z,t,d

[puporev]

Задача №1.

uses crt;
var a:string;
function schit(s:string):string;
var s1:string;
begin
str(length(s),s1); //преобразуем количество символов в строке в строковый тип
schit:=s[1]+'('+s1+')';//составляем строку по условию
end;
begin
clrscr;
writeln('Vvedite stroku iz odinakovyh simvolov:');
readln(a);
writeln(schit(a));
readln
end.

[-=<[Evklidd]>=-]

Если в первой задаче дана строка только из одинаковых символов, то есть по сути сделана из одного символа, то функция выглядит совсем просто:

function Schit(s:string):string;
var
 n: integer;
 s1: string;
 begin
  n:= Length(s);
  Str(n,s1);
  Schit:= s[1]+'('+s1+')';
 end;

[Zero]

Огромнейшее спасибо!!!!