Ошибка в Паскале ABC

program calc;
function add (a,b: integer): integer;
function sub (a,b: integer): integer;
function mult (a,b: integer): integer;
begin
operation: byte;
var a,b: integer;
writeln ('a');
read (a);
writeln ('b');
read (b);
writeln ('1 - сложить');
writeln ('2 - вычесть');
writeln ('3 - умножить');
end;
begin
case operation of integer;
1. writeln (a+b);
2. writeln (a-b);
3. writeln (a*b);
end;
end.

Program1.pas(22) : Встречено '.', а ожидалось ','

прошу заметить, эта ошибка указывает на последнюю строку ''end''