Написать программу вычисления периметра и площади треугольника, используя процедуру и функцию - Turbo Pascal

Формулировка задачи:

Здравствуйте! Обращаюсь за помощью. Никак не получается написать следующую программу:

Написать программу вычисления периметра и площади треугольника на PASCAL. Стороны треугольника a,b,c ввести с клавиатуры. Вычисление площади треугольника оформить

функцией

, вычисление периметра -

процедурой

Я пробовала написать, но тщетно. В общем, мои попытки кончились этим:

                    Листинг программы
                
 
                        
                          
                    
Program P1;
var a,b,c,P,S:real;
Procedure Pr(a,b,c:real; var P:real);
Begin
P:=a+b+c;
End;
Function F(a,b,c:real):real;
var pp,S:real;
begin
pp:=(a+b+c)/2;
s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));
end;
Begin
Writeln('Vvedite a,b,c');
readln(a,b,c);
writeln('P=',P,'S=',S);
end.

Никак не пойму, в чём ошибка. Буду очень признательна за помощь!

Решение задачи: «Написать программу вычисления периметра и площади треугольника, используя процедуру и функцию»

Листинг программы

program P1;
 
var
  a, b, c, P, S: real;
 
procedure Pr(a, b, c: real; var P: real);
begin
  P := a + b + c;
end;
 
function F(a, b, c: real): real;
var
  pp: real;
begin
  pp := (a + b + c) / 2;
  f := sqrt(pp * (pp - a) * (pp - b) * (pp - c));
end;
 
begin
  Writeln('Vvedite a,b,c');
  readln(a, b, c);
  pr(a, b, c, p);
  writeln('P = ', P, ' S = ', f(a, b, c));
  
end.

Объяснение кода листинга программы

Создаётся программа P1.
Объявляются переменные: a, b, c, P, S типа real.
Создаётся процедура Pr с параметрами a, b, c типа real и переменной P типа real.
В процедуре Pr значение переменной P вычисляется как сумма значений переменных a, b и c.
Создаётся функция F с параметрами a, b, c типа real.
В функции F объявляется переменная pp типа real.
Значение переменной pp вычисляется как среднее арифметическое значений переменных a, b и c.
Вычисляется значение переменной f как квадратный корень из значения переменной pp, умноженного на разность между pp и a, pp и b, pp и c, и делённого на 2.
Выводится приглашение на ввод значений a, b, c.
Чтение значений a, b, c с помощью функции readln.
Вызывается процедура pr с параметрами a, b, c и переменной P.
Выводится значение переменной P.
Выводится значение переменной f.
Программа заканчивается.