strings.pas

   1 PROGRAM cadenas;\r
   2 \r
   3 VAR cadena: string[40];\r
   4     i: integer;\r
   5 \r
   6 BEGIN\r
   7      cadena := 'Luca';\r
   8      writeln(' Cadena: ', cadena, '        Caracteres: ', length(cadena));\r
   9      for i := length(cadena) downto 1 DO write(cadena[i]);\r
  10 {     write(cadena[0]);\r
  11      write('lucaman'); }\r
  12 END.\r