Dobrý den, učím se programovat v Turbo Pascalu a dostal jsem za úkol naprogramovat telefonní seznam. Nevím ale, jak naprogramovat jednotlivé příkazy.

Ukázka programu:

program tel_seznam;
uses crt;

...

var seznam:useznam;
    A:string;

...

begin
     clrscr;
...

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

     case A of
          'zrusit': zrus;
          'hledat': writeln('Co mam hledat? ');
                    
     else writeln('Neznamy prikaz. Zkus to znovu.');
     end;

     until A=zrusit;

     repeat until keypressed;
end.

Mám zadefinovanou proměnnou A jako řetězec string. Pak v samotném těle programu zadám příkaz, načte se do A a pomocí příkazu case si zavolám procedura (př. zrus). Ale když se pokusím program spustit, napíše mi chybu "ordinal expression expected" u příkazu case. Možná mám nějak špatně to načítání slov do proměnné. Po pravdě moc nevím, jak se to dělá. Ve škole jsme do proměnných načítali většinou jen čísla. Děkuji moc za pomoc. Už si vážně nevím rady.