Определить уровень рентабельности строительных предприятий

uses crt;
const ss1=45.08;
      ss2=36.90;
      ss3=39.96;
      bp1=3.15;
      bp2=3.34;
      bp3=2.34;
      pf1=25.29;
      pf2=20.56;
      pf3=21.0;
var p1,p2,p3,rs1,rs2,rs3,rf1,rf2,rf3,mx:real;
    n:byte;
begin
clrscr;
p1:=ss1*0.08;
p2:=ss2*0.08;
p3:=ss3*0.08;
writeln('Величина прибыли');
writeln('Предприятие 1=',p1:0:3);
writeln('Предприятие 2=',p2:0:3);
writeln('Предприятие 3=',p3:0:3);
rs1:=p1*100/ss1;
rs2:=p2*100/ss2;
rs3:=p3*100/ss3;
writeln('Уровень рентабельности относительно сметной стоимости');
writeln('Предприятие 1=',rs1:0:3);
writeln('Предприятие 2=',rs2:0:3);
writeln('Предприятие 3=',rs3:0:3);
rf1:=bp1*100/pf1;
rf2:=bp2*100/pf2;
rf3:=bp3*100/pf3;
writeln('Уровень рентабельности относительно производственных фондов');
writeln('Предприятие 1=',rf1:0:3);
writeln('Предприятие 2=',rf2:0:3);
writeln('Предприятие 3=',rf3:0:3);
if rf1>rf2 then
 begin
  mx:=rf1;
  n:=1
 end
else
 begin
  mx:=rf2;
  n:=2
 end;
if rf3>mx then
 begin
  mx:=rf3;
  n:=3
 end;
write('Предприятие с лучшим использованием производственных фондов ',n);
readln
end.