Pascal не работает программа ошибка: Ожидалось ;

program Proc20;
var a,h:Real;
function TriangleP(a,h:real):real;
var b:real;
begin
b:=sqrt(sqr(a/2)+sqr(h));
TriangleP:=a+2*b;
end;
begin
readln (a,h);
write ('Периметр первого треугольника = ');
writeln TriangleP(a,h);
end.

На 12 строчке writeln TriangleP(a,h); пишет Ожидалось ;

Спасибо большое)
Понял в чём косяк)