"a: char" = "a are (fix) un caracter".
Asadar, cand tu scrii 'suma' in a, in variabila de fapt va ramane doar 's' (ca atat poate tine, un caracter).
Pentru verificare ai doua posibilitati:
1) schimbi conditia din a='suma' in a='s';
2) faci debug step by step si vezi ce valoare are a dupa ce treci de readln(a), adica inainte sa execute if a = 'suma'.
Similar si pentru cand scrii 'diferenta' sau 'produs' - in a vei gasi doar 'd' sau 'p'.
P.S. De ce (inca) folosesti Turbo Pascal si nu Free Pascal?
http://www.freepascal.org
Al cui esti din Bangladesh?!?
poti sa imi spui si mie SA NU MOR PROST de ce te chinui cu pascal in Turbo Vision in dos-emulator?!?
TE ROG SA MA CREZI CA MOOOOOR DE CURIOZITATE, PE BUNE!
si cum ti-a zis flixbuster, a ar trebui declarat ca string, nu doar ca, caracter