Pascal

Zdravim!
Mam zdrojovy kod:
program LZ;
uses crt;
var subor:text;
i:integer;
procedure menu;
begin
clrscr;
writeln('1-vypis');

end;
procedure vypis;
var f:text;
s:string[50];
begin
clrscr;
assign(f,'h:\LZ\ziaci.txt');
reset(f);
while not eof(f) do begin
readln(f,s);
writeln(s);
end;
close(f);
end;

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

Ma to fungovat tak, ze zadanim cisla podla menu sa vykona prislusna procedura. Teda 1 - vypis zoznamu ziakov. Dalsie polozky v menu este nie su hotove. Potreboval by som to urobit vsak tak, aby po zadani a precitani cisla (premenna i)
sa program nevypol, ale aby pokracoval vypisom zoznamu. Uvedeny zdrojovy kod urobi to, ze po precitani cisla sa program vypne a na zoznam sa mozem pozriet len stlacenim Alt+F5. Dufam, ze som to napisal zrozumitelne. Dakujem za pomoc.