Замена букв

[rasti6ka]

Здравствуйте! Если кто-то сталкивался с подобной задачей или знает, как её решить, прошу помочь! Необходимо заменить буквы введенного слова(маленькие латинские) на цифры следующим образом:

___1___2___3___4___5___6
1__a __b___ c___d___e___f
2__g___h___i____j___k___l
3__m___n__ o___p___q___r
4__s___t___u___v___w___x
5__y___z

т.е. a-11, b-12, c-13 и т.д. + пробел заменить на нижнее подчеркивание

[Kostia]

как-то так:

var
  s:string;
  news: string;
  i: integer;
begin
  readln(s);
  news:='';
  for i:=1 to length(s) do
    if ord(s[i])=32 then news:=news+'_'
    else  news:=news+inttostr((ord(s[i])-96)div 6+1)+inttostr((ord(s[i])-96)mod 6);
  writeln(news);
  readln();
end.