[YVitaliy]

Возможно тебе нужна ф-ция типа Ord('символ') - возвращает позицию символа в ASCII table.

Код:

  pos:=ord('символ')-ord('a');

если

symbols:array['a'..'z'] of string

- массив от 'a'до 'z'. Тогда word будет типа

Код:

Word:Char;

Иначе перебором, как Alegun, но чуть-чуть по-другому:

Код:

function rs(ds:string): integer;
var
 с: char;
 i: integer;
begin
 i:= 1;
 for c:= 'a' to 'z' do
  if symbols[c] = ds then 
   begin
    result:=i;
    break;
  end else inc(i);
  end;