Объем кубика

[Lazy_Bitch]

Ввести два произвольных числа - длины сторон 2х кубиков. Составить программу вычисления объема кубика - большего по размеру. Вычисление объема оформить в виде процедуры/функции.
Собсно вот, что есть:

Program P1;
Var a,b:real;
Procedure VV(a,b:real):real;
Var V1,V2:real;
Begin
Writeln('Vvedite dliny storon: ');
Readln(a,b);
Repeat
V1:=a*a*a;
V2:=b*b*b;
Until V1>V2;
Readln(V1);
End;
Begin
VV(a,b);
Readln();
End.

Будьте любезны, подправить

[MoBLer]

держи :0

var
v:longint;
procedure vv;
var
a,b:integer;
begin
writeln('a b');
readln(a,b);
if a>b then v:=a*a*a else v:=b*b*b;
end;
begin
vv;
writeln(v);
readln;
end.

[Lazy_Bitch]

Спасибо !!!