Pascal/Turbo Pascal - Programa de IMC

Hola, aqui tengo un progrma q hice hace poco de IMC (indice de masa corporal) y queria ver si me podian decir si esta bien escrito... el programa funciona excelente. pero en cuando a protocolo quisiera saber si esta correcto.. aqui se los dejo. De antemano gracias.
(esa seguidilla de end; no se si estan bien colocadas)


Program Indice_Masa_Corporal;
var pesoa:real;
pesob:real;
pesoc:real;
alturaa:real;
alturab:real;
alturac:real;
IMCa:real;
IMCb:real;
IMCc:real;
promedio:real;
begin
writeln('ingrese peso y altura de la primera persona en kg y mts');
readln(pesoa,alturaa);
IMCa:=(pesoa/(alturaa*alturaa));
writeln('el IMC es',IMCa);
If IMCa< 18.5 then
begin
writeln('la persona presenta bajo peso');
end
Else begin
if (IMCa >=18.5) and (IMCa <= 24.9) then
begin
writeln('la persona presenta peso normal');
end
else begin
if (Imca >= 25) and (IMCa <= 29.9) then
begin
writeln('la persona presenta obesidad grado 1');
end
else begin
if(Imca >= 30) and (IMCa <= 39.9) then
begin
writeln('la persona presenta obesidad grado 2');
end
else begin
if(Imca >= 40) then
begin
writeln('la persona presenta obesidad grado 3');
end;
end;
end;
end;
end;
writeln('ingrese peso y altura de la segunda persona en kg y mts');
readln(pesob,alturab);
IMCb:=(pesob/(alturab*alturab));
writeln('el IMC es',IMCb);
If IMCb< 18.5 then
begin
writeln('la persona presenta bajo peso');
end
Else begin
if (IMCb >=18.5) and (IMCb <= 24.9) then
begin
writeln('la persona presenta peso normal');
end
else begin
if (Imcb >= 25) and (IMCb <= 29.9) then
begin
writeln('la persona presenta obesidad grado 1');
end
else begin
if(Imcb >= 30) and (IMCb <= 39.9) then
begin
writeln('la persona presenta obesidad grado 2');
end
else begin
if(Imcb >= 40) then
begin
writeln('la persona presenta obesidad grado 3');
end;
end;
end;
end;
end;
writeln('ingrese peso y altura de la tercera persona en kg y mts');
readln(pesoc,alturac);
IMCc:=(pesoc/(alturac*alturac));
writeln('el IMC es',IMCc);
If IMCc< 18.5 then
begin
writeln('la persona presenta bajo peso');
end
Else begin
if (IMCc >=18.5) and (IMCc <= 24.9) then
begin
writeln('la persona presenta peso normal');
end
else begin
if (Imcc >= 25) and (IMCc <= 29.9) then
begin
writeln('la persona presenta obesidad grado 1');
end
else begin
if(Imcc >= 30) and (IMCc <= 39.9) then
begin
writeln('la persona presenta obesidad grado 2');
end
else begin
if(Imcc >= 40) then
begin
writeln('la persona presenta obesidad grado 3');
end;
end;
end;
end;
end;
promedio:= (IMCa+IMCb+IMCc)/3;
writeln('el promedio de los 3 es',promedio);
readln;
end.

Estaría mejor si pusieras esa serie de ifs que se repinten (y básicamente hacen lo mismo) en un procedimiento que llames cuando sea necesario.

y como se hace eso?