Tak jsem se rozhodl, že tam napíšu seznam čísel a příkazů a udělám to pomocí case. Ale ještě mám problém s procedurou hledat. Pokud napíšu číslo 2, tak chci napsat co mám hledat, to se mi načte to B (string) a pak zavolá proceduru hledej. Ale program napíše 'Co chces hledat? ' a rovnou skočí na proceduru hledej. Nevíte, jak tam zadat slovo, co chci hledat? Omlouvám se, pokud se ptám blbě, ale vážně nejsem zběhlý programátor a ocenil bych radu.

     repeat
     writeln('Zadej prikaz: ');
     read(A);

     case A of
          1: zrus;
          2: begin
                  writeln('Co chces hledat? ');
                  read(B);
                  hledej;
                  end

     else writeln('Neznamy prikaz. Zkus to znovu.');
     end;

     until A=1;