[geoliver]

laß mal die unnötigen begin und ends weg. Dann wirds übersichtlicher
z.B:

case q of ' ' : if a <> ' ' then n:=n+20;
else ..... usw