[pascal]Sziasztok! Hogyan lehet olyan "menürendszert" készíteni ahol fel tudok sorolni 1-9ig egy listát amiből választani lehet és a menüpontokon belül egy "vissza" lehetőséggel?

program menu;

uses Crt;

var i : char;

begin

ClrScr;

WriteLn('1.menupont');

WriteLn('2.menupont');

WriteLn('3.menupont');

WriteLn('4.menupont');

WriteLn('5.menupont');

WriteLn('6.menupont');

WriteLn('7.menupont');

WriteLn('8.menupont');

WriteLn('9.menupont');

WriteLn('0.kilepes');

repeat

i := readkey;

until i in ['0'..'9'];

end.

"Ezt milyen kiterjesztésbe kéne elmenteni?"

Édes istenem!