OK funziona.
Ora un'altra domanda...come faccio a prendere un carattere alla volta da una stringa?
ossia qualcosa del tipo

codice:
stringa=XXXX

do while not eof
  leggi carattere stringa
  asc(carattere)
  prossimo carattere
loop