Pascal/Turbo Pascal - Procedimiento que lea un dato y, se lo pase a otro procedimiento

Uses CRT;

var

  base, altura, area : real;

Procedure LeerDatos(var b : real; var a: real);

begin

  Writeln('Introduzca la base: ');

  readln(base);

  Writeln('Introduzca la altura: ');

  readln(altura);

end;

Procedure CalculaArea(var a : real; var b : real; var ar : real);

begin

  ar:=a*b;

  Writeln('El  rea del rect ngulo es: ',b*a:2:2);

end;

begin

  LeerDatos(base,altura);

  calculaArea(base,altura,area);

  readkey;

end.