Konwersja Real i reszta

Jest zmienna real o wartości np. 15,42
należy ją zamienić na dwie wartości typu integer, gdzie pierwszya
wartość będzie wartością zmiennej real do przecinka czyli 15
a druga po przecinku 42.
czyli:

var
a: real;
b,c: integer

begin
a:=15,42
.
.
. // wasza propozycja
.
b:=15
c:=42

var 
a: real;
b,c: integer

begin
  a := 15.42;
  b := trunc(int(a));
  c := trunc(frac(a)*101);
end;

Dzięki [hurra]