Pascal/Turbo Pascal - duda ejercicio

Hola necesito hacer un programa que haga lo siguiente:
que solicite al usuario los datos de un paciente y los meta en una registro del tipo PACIENTE que contenga Nombre, Apellidos, altura (en centímetros) peso (en kilos) y fecha de nacimiento (dd/mm/aa) y presente por pantalla esta información,
ademas especifica que aunque la altura se imprima en pantalla en cm ha de aparecer de la siguiente a m y b cm( 1 m y 70 cm 9

{A ver si esto te hayuda}

program istorial_paciente;
uses
crt;
const
total = 5;
type
paciente = record
nombre : string[100];
apellidos : string;
altura : real;
peso : real;
fecha_nac : string[10];
end;

var
paci : array[1..total] of paciente;
cont : integer;

procedure entradas(var p : paciente);
begin
clrscr;
writeln(' Entradas Pacientes');
writeln;
with p do
begin
write(' Nombre : ');
readln(nombre);
write(' Apellidos : ');
readln(apellidos);
write(' Altura : ');
readln(altura);
write(' Peso : ');
readln(peso);
write(' Fecha Nacimiento : ');
readln(fecha_nac);
end;
end;

procedure presenta_datos(cual : integer; d : paciente);
var
ver : integer;
alto, bajo : real;
deci : string[5];
begin
ver := cual;
if ver > cont then
ver := cont;
clrscr;
writeln(' ***** Datos Paciente *****');
writeln;
with d do
begin
writeln(' Nombre = ',nombre);
writeln(' Apellidos = ',apellidos);
alto := int(altura);
bajo := frac(altura);
str(altura,deci);
if bajo > 0 then
writeln(' Altura = ',trunc(alto),' m ',deci[4],deci[5],' cm')
else
writeln(' Altura = ',trunc(alto),'m');
writeln(' Peso = ',peso:0:2,' Kl');
writeln(' Fecha Nacimiento = ',fecha_nac);
end;
writeln;
writeln(' Pulse Una Tecla');
readkey;
end;

begin
cont := 1;

entradas(paci[cont]);
cont := cont + 1;
if cont > total then
cont := total;
presenta_datos(cont - 1,paci[cont - 1]);

end.

Gracias al final la hice así.
Pero tengo ahora que un procedimiento que reciba una lista de PACIENTES y los presente por pantalla. Considere que la lista no tendrá nunca más de 5 pacientes. Inclúyalo en un programa que pregunte el número de pacientes, lea los datos de los pacientes y los presente por pantalla.
No me da salido, ¿cómo podría hacer?

Muchas gracias, al final con tu ayuda lo conseguí hacer.