Membuat Program Menu dengan Procedure pada Pemrograman PASCAL

uses wincrt;
label akhir,awal;
var menu : integer;
x:char;

procedure lpkubus;
var
s,ls:integer;
begin
clrscr;
writeln('<<<Menghitung Luas Kubus>>>');readln;
write('Masukkan Sisi Kubus : ');readln(s);
ls := 6*s*s;
writeln('Luas Permukaan Kubus = ', ls);
end;

procedure fak;
function Faktorial(a:integer):longint;
begin
if (A=1)then
Faktorial:=1
else
Faktorial:=a*faktorial(a-1);
end;
var x:integer;
begin
clrscr;
writeln('<<<Bilangan Faktorial>>>');readln;
writeln;
write('Berapa Faktorial : ');readln(x);
writeln(x,' faktorial ','= ',faktorial(x));
end;