[pascal] kalkulator, jak zrealizować wybór działania?

program imitCalc;
uses crt;
var
   a:integer;
   funkcja:shortint;
   g:real;
   h:real;


begin
a:=1;
repeat
clrscr;
writeln('Witaj w programie imitCalc 1.0!');
writeln('Wci~nij odpowiedni przycisk, aby wybra† funkcj©:');
writeln('1 - Dodawanie');
writeln('2 - Odejmowanie');
writeln('3 - Mnoľenie');
writeln('4 - Dzielenie');
writeln('5 - O programie');
writeln('6 - Wyj~cie');
writeln('Teraz moľna wybra† funkcj©');
readln(funkcja);
if funkcja=1 then
begin
writeln('Wprowad« pierwszĄ liczb©');
readln(g);
writeln('Wprowad« drugĄ liczb©');
readln(h);
writeln('Wynik wynosi ',g+h);
readln;
end;
if funkcja=2 then
begin
writeln('Wprowad« pierwszĄ liczb©');
readln(g);
writeln('Wprowad« drugĄ liczb©');
readln(h);
writeln('Wynik wynosi ',g-h);
readln;
end;
if funkcja=3 then
begin
writeln('Wprowad« pierwszĄ liczb©');
readln(g);
writeln('Wprowad« drugĄ liczb©');
readln(h);
writeln('Wynik wynosi ',g*h);
readln;
end;
if funkcja=4 then
begin
writeln('Wprowad« pierwszĄ liczb©');
readln(g);
writeln('Wprowad« drugĄ liczb©');
readln(h);
writeln('Wynik wynosi ',g/h);
readln;
end;
if funkcja=5 then
begin
writeln('imitCalc');
readln;
end;
if funkcja=6 then halt
else writeln('Poda^e~ z^Ą funkcj©');
readln;
until a=0;
end.