急! 20點 Dev-Pascal Real問題

program temp;

Uses
Crt;

Var
b , d , h: String;
e , f , g : Extended;

begin

Write('Please enter your first letter : ');
Readln(b);

If (b = 'c') Then
e := 7.25
Else
If (b = 'l') Then
e := 0
Else
If (b = 'a') Then
e := 7
Else
If (b = 'a1') Then
e := 7
Else
Write('You have enter wrong ! ');

Write(e);
Readln;

Write('Please enter your second letter : ');
Readln(d);

If (d = 'c') Then
f := 7.25
Else
If (d = 'l') Then
f := 0
Else
If (d = 'a') Then
f := 7
Else
If (d = 'a1') Then
f := 7
Else
Write('You have enter wrong ! ');
Readln;

Write(e+f);

Write('Please enter your third letter : ');
Readln(h);

If (h = 'c') Then
g := 7.25
Else
If (h = 'l') Then
g := 0
Else
If (h = 'a') Then
g := 7
Else
If (h = 'a1') Then
g := 7
Else
Write('You have enter wrong ! ');

Write(e+f+g);
Readln;

end.

第一次打c無問題
第二,三次打c有問題
小數點唔岩位
個小數點點先岩位 ?