Найти сумму первой и последней цифры — Pascal(Паскаль)

{Найти сумму первой и последней цифры}
program borlpasc;
var a,b,n:integer;
begin write('введите n=');
      readln(n);
      a:=n mod 10;
      repeat b:=n;
             n:=b div 10
      until n=0;
      writeln('S=',a+b)
end.