Tin học chương trình tính chu vi,diện tích của tam giác

const fi='bai1.inp';
fo='bai1.out';
var a,b,c:real ;
procedure tinh (var a,b,c,P,S :real);
begin
P:=a+b+c;
S:= sqrt (P*(P-a)*(P-b)*(P-c)) ;
end;
begin
assign(input,fi);reset(input);
assign(output,fo);rewrite(output);
read (a,b,c);
tinh;
write (P,' ',S);
end.
lâu rồi chưa viết CT nên sai chỗ nào cậu xem lại nha