Problem z pascalem

[LuZiK 0]

Witam. Niedawno zaczolem przygode z pascalem. Mam wzor jak napisac program gdzie urzytkownik bedzie mogl wybierac figure ktorej bedzie chcial obliczyc pole albo obwod. Zaczolem pisac program lecz nie dziala . Dziala tylko poczatek. Np. wciskam a potem enter i program sie wyłacza ;/ . Prosilbym o znalezienie beledu w programie bo niby wszystko jest ok ale tak naprawde nie jest.

Moj program:

PROGRAM GEOMETRIA;

USES CRT;

VAR a,b,c,P,Ob,r,h:real;

wybor:char;

BEGIN

CLRSCR;

WRITELN(' Witam w programie GEOMETRIA, ktory pomoze ci obliczyc pola i obwod figor');

WRITELN(' Wybierz interesujaca cie funkcje wybierajac jedna z opcji');

WRITELN(' a- pole kwadratu');

WRITELN(' b- pole trojkata');

WRITELN(' c- obwod kola');

 

IF wybor = 'a'THEN BEGIN

WRITELN(' Wpisz dlugosc krawedzi b');

READLN(;

P:=b*b;

WRITELN(' Pole kwadratu=',P:0:2);

END;

 

IF wybor = 'b' THEN BEGIN

WRITELN(' Wpisz dlugosc boku a');

READLN(a);

WRITELN(' Wpisz dlugosc wysokosci h');

READLN(h);

P:=0.5*a*h;

WRITELN(' Pole trojkata=',P:0:2);

END;

READLN;

END.

[luk1999 17]

Wypadałoby po wyświetleniu menu pobrać z klawiatury wciskany przycisk:

if KeyPressed then 
 wybor := ReadKey;