neco v tomhle stylu? toto sem vyplodil za 3 minuty, nemam tady zadny compiler takze nevim jestli to funguje, je tam urcite spousta chyb ale myslim ze bys z toho mohl vychazet, odmeny se zrikam ve prospech OC fora ,

Kód:
program obsahy;
uses crt;

begin
    clrscr;
    zvol_obr;
end. 

procedure (zvol_obr);
var volba:char;
begin;
    writeln('Jaky utvar chces pocitat? (k-kruh, o-obdelnik');
    readln(volba);
    case volba of
	 'k': kruh;
	 'o': obdelnik;
	otherwise zvol_obr;
    end;
end;

procedure (kruh);
var pol,obsah,obvod: real;
    volba:char
begin;	
    writeln ('zadej polomer kruhu: ');readln(pol)
    obsah:=(2*3.1415*pol);
    obvod:=(3.1415*(pol^2));
    writeln;
    writeln('Obsah:  ',obsah);
    writeln('Obvod:  ',obvod);
    writeln('Prejes si jeste neco pocitat? (a/n) ');readln(volba);
    if volba='a' then zvol_obr;
end;
    
procedure (obdelnik);
    var a,b,obvod,obsah : real;
	volba: char;
    begin;	
        writeln ('zadej strany a a b: ');readln(a,b)
	obsah:=(a*b);
	obvod:=(2*(a+b));
	writeln;
	writeln('Obsah:  ',obsah);
	writeln('Obvod:  ',obvod);
	writeln('Prejes si jeste neco pocitat? (a/n) ');readln(volba);
	if volba='a' then zvol_obr;
    end;
je to tak naflakane ani nevim co tam je vsechno za chyby ale nemam cas tak si to oprav