[NumLock]

Сообщение от serega6531

Символ 'd' занимает 4 место в массиве.

Код:

function CharPos(c: Char): Integer;
begin
  Result:=Ord(c)-96;
end;