Matematické Fórum

Zdravím, mám takový malý problém. V semináři už rok programuji a zvládám základní programy. Na závěr tohoto školního roku jsme tedy dostali zadán finální úkol. Doma Delphi 7 nemám a je pro mě docela problém programovat bez Delphi. Něco málo napíšu, ale stačit to nebude. Tedy k věci, potřeboval bych pomoct s programem, který by měl začínat malým úvodem (menu), ve kterém by si mohl uživatel vybrat z pěti programů (každý má jinou funkci - matice,řetězec a nakonec jeden vlastní program). K programu musím dodat i dokumentaci ve wordu, ale to už zvládnu. Budu moc vděčný za jakoukoliv pomoc, už si nevím rady, protože programy mi hází chyby a o tom vlastním už ani nemluvím. Moc moc prosím. Zatím jsem sám stačil naprogramovat tenhle fungující řetězec.

program retezec_06;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var veta:string;
    i,p:integer;
    znak:char;

begin
  p:=0;
  writeln('Napis vetu.');
  readln(veta);
  writeln;
  writeln('Zadej znak');
  readln(znak);
  for i:=1 to length(veta) do if veta[i]=znak then p:=p+1;
  writeln;
  writeln('Pocet znaku - ',znak,', byl ve vete ',p,'-krat');
  readln;
end.