CASE naredba u paskalu/delphi-u

[ivance95]

Da li neko moze da mi pomogne kako da napisem ovaj program u Delphiju(konzolna aplikacija).

Spoiler za Kod:

#include <cstdlib>
#include <iostream>
#include <cmath>

using namespace std;

int main()
{
  float a;
  float b;
  int odgovor=1;
  int od;
  cout<<"Ovaj program moze da izvrsi vise operacija.Operacije sa jednim brojem(1,2,3) i sa dva broja(4,5,6,7)"<<endl<<endl;
  while(odgovor==1)
  {
  cout<<"Izaberite operaciju:"<<endl;
  cout<<"1-Korenovanje"<<endl;  
  cout<<"2-Stepenovanje"<<endl;
  cout<<"3-Apsolutna vrednost"<<endl;
  cout<<"4-Sabiranje"<<endl;
  cout<<"5-Oduzimanje"<<endl;
  cout<<"6-Mnozenje"<<endl;
  cout<<"7-Deljenje"<<endl;
    
     cin>>od;/*upisivanje brojeva od jedan do dva*/
     
     switch(od)/*odabir operacije*/
     {
               case 1:/*DUZI NACIN ZAPISIVANJA*/
                    cout<<"Unesite pozitivan broj:"<<endl;
   			 cin>>a;
                    if(a<0)
                    {
                           cout<<"Broj je negativan"<<endl;
                           system("PAUSE");
                           return 0;
                           }
                           else
                           {
                    cout<<"Koren iz "<<a<<" je:"<<endl<<endl;
                    cout<<sqrt(a)<<endl;
                    break;
                    }
                    
               case 2:/*operacija koja se izvrsava ako upisemo dva*/ 
                    cout<<"Unesite pozitivan broj:"<<endl;
    			cin>>a;
                    if(a<0)
                    {
                           cout<<"Broj je negativan"<<endl;
                           system("PAUSE");
                           return 0;
                           }
                           else
                           {
                    cout<<"Unesite stepen:"<<endl;
                    cin>>b;
                    }
                    cout<<endl<<endl;
                    cout<<"Rezultat je:"<<endl<<endl;
                    cout<<pow(a,b)<<endl;/*Kraci nacin*/
                    break;/*kraj naredbe*/
               case 3:
                    cout<<"Unesite negativan broj:"<<endl;
    			cin>>a;
                    if(a>0)
                    {
                           cout<<"Broj je pozitivan"<<endl;
                           system("PAUSE");
                           return 0;
                           }
                           else
                           {
                    cout<<"Apsolutna vrednost broja "  <<  a  <<  " je:"<<endl;
                    cout<<abs(a);
                    break;
                    }
               case 4:
                    cout<<"Unesite prvi broj:"<<endl;
    			cin>>a;
                    cout<<"Unesite drugi broj:"<<endl<<endl;
                    cin>>b;
                    cout<<a<<"+"<<b<<"="<<a+b<<endl;
                    break;
               case 5:
                    cout<<"Unesite prvi broj:"<<endl;
    			cin>>a;
                    cout<<"Unesite drugi broj:"<<endl<<endl;
                    cin>>b;
                    cout<<a<<"-"<<b<<"="<<a-b<<endl;
                    break;
               case 6:
                    cout<<"Unesite prvi broj:"<<endl;
    			cin>>a;
                    cout<<"Unesite drugi broj:"<<endl<<endl;
                    cin>>b;
                    cout<<a<<"*"<<b<<"="<<a*b<<endl;
                    break;
               case 7:
                    cout<<"Unesite prvi broj:"<<endl;
    			cin>>a;
                    cout<<"Unesite drugi broj:"<<endl<<endl;
                    cin>>b;
                    cout<<a<<"/"<<b<<"="<<a/b<<endl;
                    break;
                    }
               cout<<"Ponovo=unesite 1"<<endl;
               cout<<"Kraj=unesite 2"<<endl;
               cin>>odgovor;
    cout<<endl<<endl;
                    
}
cout<<endl;
    return 0;
}

Program sam pisao u c++ pre oko godinu dana.
1. Kako napraviti case naredbu u vec postojecoj case naredbi(neki primer, ne mora da bude vezan za ovaj program, npr. prvo se bira da li se vrse operacije sa jednim ili dva broja, a tek onda izbor operacije)?

Unapred zahvalan.