tengo otro problema
'a' es un cadena
long:length(a);
for n:= 1 to (long/2) do
si a 'n' la declaro como byte sale de error:
[Error] letraspares.dpr(20): Incompatible types: 'Byte' and 'Extended'
si a 'n' la declaro como integer sale de error:
[Error] letraspares.dpr(20): Incompatible types: 'Integer' and 'Extended'
si a 'n' la declaro como real sale de error:
[Error] letraspares.dpr(20): Incompatible types: 'Integer' and 'Extended'