[cionci]

Allora te lo modifico...

program corrisp;
var
   Vett: array[0..255] of Integer;
   i: Integer;
   carattere: Char;
begin
   for i := 0 to 255 do
      Vett[i] := -1;
   Vett[Ord('#')] = 0;
   Vett[Ord('?')] = 1;
   Vett[Ord('!')] = 2;
   Vett[Ord(')')] = 3;
   Vett[Ord('(')] = 4;
   Vett[Ord('/')] = 5;
   Vett[Ord(']')] = 6;
   Vett[Ord('[')] = 7;
   Read(carattere);
   if Vett[Ord(carattere)] >= 0 then 
      Write(Vett[Ord(carattere)]);
end.