Найти удвоенный квадрат площади треугольника по формуле Герона

unit geron;
interface
function Prov(x,y,z:real):boolean;{проверка треугольника}
function Plosh(x,y,z:real):real;{2*S^2}
implementation
function Prov;
begin
if(x>abs(y-z))and(x<y+z)then Prov:=true
else Prov:=false;
end;
function Plosh;
var p:real;
begin
p:=(x+y+z)/2;
Plosh:=2*(p*(p-x)*(p-y)*(p-z));
end;
end.

uses crt,geron;
var a,b,c,d:real;
begin
clrscr;
repeat
writeln('Введите 3 стороны треугольника:');
readln(a,b,c);
if not Prov(a,b,c) then writeln('Это не треугольник! Повторите ввод.');
until Prov(a,b,c);
write('Удвоенный квадрат площади=',Plosh(a,b,c):0:2);
readln
end.

uses crt;
var f:file of char;
    g:text;
    c:char;
begin
clrscr;
assign(f,'chr_file');
rewrite(f);
assign(g,'txt_file.txt');
rewrite(g);
writeln('Введите в файл символы, окончание ввода 0:');
repeat
readln(c);
if c<>'0' then write(f,c);
until c='0';
close(f);
writeln('Содержание символьного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,c);
  write(c);
  write(g,c);
 end;
close(f);
close(g);
writeln;
write('Символьный файл переписан в текстовый TXT_FILE');
readln
end.