uses crt,dos,infkeret;
var legvege:char; mxi,mxj:integer; nepsuruseg:real;
    cse,le:boolean; hol:PathStr;
    T:tomb; P:ParamT;

begin
  repeat
    foprogram(' Szimul ci˘ ','Demogr fiai modell','Korcsoportonk‚nti megoszl s:',hol,mxi,mxj,cse,le,t,p);
{(focim,alcim,grafcim:string; hol:PathStr; var mxi,mxj:integer;cse,le:boolean; T:Tomb; P:ParamT)}
    write('Ism‚t? (ak r m s adatokkal) '); readln(legvege);
  until (upcase(legvege)='N');
end.