Найти сумму чисел. Через case

var a: 1..20; 
     b: 20..80; 
     s:1..100;
 begin
 readln(a,b);
     if not(a in [1..20]) and (b in [20..80]) then
              write('Вы ввели неверные значения, а должно быть в диапазоне 1..20, а b в диапазоне 20..80');
     s:=a+b;
     write(s);
     case s of
          21..29: write(' - двадцать ');
          30..39: write(' - тридцать ');
          40..49: write(' - сорок ');
          50..59: write(' - пятьдесят');
          60..69: write(' - шестьдесят');
          70..79: write(' - семьдесят');
          80..89: write(' - восемьдесят');
          90..99: write(' - девяносто');
          100: write(' - сто');
     end;
     case s mod 10 of
          1: write(' один');
          2: write(' два');
          3: write(' три');
          4: write(' четыре');
          5: write(' пять');
          6: write(' шесть');
          7: write(' семь');
          8: write(' восемь');
          9: write(' девять');
     end;
     end.

if not(a in [1..20]) and (b in [20..80]) then

var
a: byte;
b: byte;
isValid: boolean;
//....
const
 aSet = [1..20];
 bSet = [20..80]; 
//...
isValid := (a in aSet) and (b in bSet);
if not isValid then
//...