Помогите найти ошибки в программе

[abcd]

ребят ошибку выдает в этой строке:s:=sqrt(p*(p-a)*(p-b)*(p-c));
я недопонимаю - если можете объясните, плиз!
вот собственно сама программа:

program abc;
var ab,bc,cd,da,ac,s1,s2,s,a,b,c,p:real;
procedure ploshad1;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
writeln ('zadaite dlinni ka}I{doi storoni');
readln (ab,bc,cd,da,ac);
a:=ab;
b:=bc;
c:=ac;
ploshad1;
s1:=s;
a:=da;
b:=ac;
c:=cd;
ploshad1;
s2:=s;
writeln ('ploshad ABCD=',s1+s2:10:3);
readln;
end.

[testtest]

попробуй так:

function ploshad1(a,b,c:real):real;
var p:real;
begin
p:=(a+b+c)/2;
ploshad1:=sqrt(p*(p-a)*(p-b)*(p-c));
end;

program abc;
var ab,bc,cd,da,ac,s1,s2,s,a,b,c,p:real;
begin
writeln ('zadaite dlinni ka}I{doi storoni');
readln (ab,bc,cd,da,ac);
a:=ab;
b:=bc;
c:=ac;
s:= ploshad1(a,b,c);
s1:=s;
a:=da;
b:=ac;
c:=cd;
s:=ploshad1(a,b,c);
s2:=s;
writeln ('ploshad ABCD=',s1+s2:10:3);
readln;
end.