Je peux eviter la repetition ?

 if s[i]='A'then writeln(65)
    else if s[i]='B' then writeln(66)
    else if s[i]='C' then writeln(67)
    else if s[i]='D' then writeln(68)
    else if s[i]='E' then writeln(69)
    else if s[i]='F' then writeln(70)
    else if s[i]='G' then writeln(71)
    else if s[i]='G' then writeln(72)
    else if s[i]='I' then writeln(73)
    else if s[i]='J' then writeln(74)
    else if s[i]='K' then writeln(75)
    else if s[i]='L' then writeln(76)
    else if s[i]='M' then writeln(77)
    else if s[i]='N' then writeln(78)
    else if s[i]='O' then writeln(79)
    else if s[i]='P' then writeln(80)
    else if s[i]='Q' then writeln(81)
    else if s[i]='R' then writeln(82)
    else if s[i]='S' then writeln(83)
    else if s[i]='T' then writeln(84)
    else if s[i]='U' then writeln(85)
    else if s[i]='V' then writeln(86)
    else if s[i]='W' then writeln(87)
    else if s[i]='X' then writeln(88)
    else if s[i]='Y' then writeln(89)
    else if s[i]='Z' then writeln(90)
    ELSE IF s[i]=' ' then writeln(32) ;