I got 1st Test, but 2nd is WA ... it's code

var s:char;
sum,i:integer;
begin
sum:=0;
while not eof do begin
read(s);
if (s='a') then sum:= sum+1;
if (s='b') then sum:= sum+2;
if (s='c') then sum:= sum+3;
if (s='d') then sum:= sum+1;
if (s='e') then sum:= sum+2;
if (s='f') then sum:= sum+3;
if (s='g') then sum:= sum+1;
if (s='h') then sum:= sum+2;
if (s='i') then sum:= sum+3;
if (s='j') then sum:= sum+1;
if (s='k') then sum:= sum+2;
if (s='l') then sum:= sum+3;
if (s='m') then sum:= sum+1;
if (s='n') then sum:= sum+2;
if (s='o') then sum:= sum+3;
if (s='p') then sum:= sum+1;
if (s='q') then sum:= sum+2;
if (s='r') then sum:= sum+3;
if (s='s') then sum:= sum+1;
if (s='t') then sum:= sum+2;
if (s='u') then sum:= sum+3;
if (s='v') then sum:= sum+1;
if (s='w') then sum:= sum+2;
if (s='x') then sum:= sum+3;
if (s='w') then sum:= sum+1;
if (s='z') then sum:= sum+2;
if (s='.') then sum:= sum+1;
if (s=',') then sum:= sum+2;
if (s='!') then sum:= sum+3;
if (s=' ') then sum:= sum+1;  end;
write(sum);
end.