Musíš si ošetriť program tak, aby skončil iba po zadaní nejakého preddefinovaného čísla z menu napr. 4.... Čo ja viem koľko tam bude položiek v tom menu. Teraz to máš tak, že program urobí postupne všetky príkazy a príde na koniec - takže skončí.
Napr:

begin
repeat
  menu;
  writeln('Vyberte si polozku z menu zadanim prislusneho cisla.');
  readln(i);
  if i=1 then vypis;
until i=4;
end.