Problém s příkazem "case" – Pascal – Fórum – Programujte.com

Ahoj mám takový problém, píšu program na geometrické útvary, který bude vypisovat nějaké jejich základní parametry apod. Dostal jsem doporučení na příkaz case abych nemusel pořád opakovat "if" ale nevím jak tento příkaz "větvit" a jak následně ukončit program

begin
        writeln('Vyber druh geometrického útvaru');
        writeln('(1) Rovinný (2) Prostorový');
        readln(n);
        case n of '1':  begin writeln('(1) Čtverec'); writeln('(2) Obdelník'); writeln('(3) Kruh'); writeln('(4) Kosočtverec');
                        end;
                 
readln(m);
case m of '1': begin
write('Zadej velikost strany "a": ');
readln(a);
ctverec;
writeln('Obvod čtverce je: ', o);
writeln('Obsah čtverce je: ', s);
writeln('Úhlopříčka čtverce je: ', u);
readln;
end;
 

Napíše se ukončení programu do každé možnosti příkazu case?

#1 konik123
Jde udelat i vice urovni pro case.

Ale prehlednejsi by bylo volat procedury. Jinak rozdeleni pro rovinny/prostorovy bych udelal pres if, jsou jen dve varianty, to se da prezit.

Volat procedury? Jakým způsobem? V této části kódu mám danou proceduru "ctverec", kterou si pak zavolám v druhé části. Potřebuji, aby mi program reagoval na to co člověk vybere za možnost a proto mi byl doporučen case. Dá se to udělat i jiným způsobem? 

#3 konik123
treba nejak takhle:

program test;
var  c : char;


procedure obdelnik2D;
begin
  writeln('obdelnik2D');
end;

procedure ctverec2D;
begin
  writeln('ctverec2D');
end;

procedure kosoctverec2D;
begin
  writeln('kosoctverec2D');
end;

procedure kruh2D;
begin
  writeln('kruh2D');
end;

procedure obdelnik3D;
begin
  writeln('obdelnik3D');
end;

procedure ctverec3D;
begin
  writeln('ctverec3D');
end;

procedure kosoctverec3D;
begin
  writeln('kosoctverec3D');
end;

procedure kruh3D;
begin
  writeln('kruh3D');
end;

procedure rovina;
var  v : char;
begin
  writeln('1) obdelnik2D  2) ctverec2D  3) kosoctverec2D  4) kruh2D :: ');
  readln(v);
  case v of
    '1': obdelnik2D;
    '2': ctverec2D;
    '3': kosoctverec2D;
    '4': kruh2D;
  end;
end;

procedure prostor;
var  v : char;
begin
  writeln('1) obdelnik3D  2) ctverec3D  3) kosoctverec3D  4) kruh3D  :: ');
  readln(v);
  case v of
    '1': obdelnik3D;
    '2': ctverec3D;
    '3': kosoctverec3D;
    '4': kruh3D;
  end;
end;

begin
  writeln('1) v rovine  2) v prostoru  :: ');

  readln(c);
  case c of
    '1': rovina;
    '2': prostor;
  end;

  writeln('KONEC!');
end.

Takže mám 8 procedur pro tvary (zadání strany, vzorce a vypsání hodnot) a 2 procedury pro rovinné a prostorové ve kterých se vybere druh a tvar. Chápu to správně? 

#5 konik123
Ano. Vsude je pak vcelku videt, co se deje a kam to jde. Pokud bys to mel vsechno v jednom, tak se v tom zachvili uz nikdo nevyzna.

Tak děkuju za pomoc :)