Как сделать отношение такое отношение переменных. чем меньше переменная a тем больше становится переменная б b

Нужно увеличивать переменную b на разность значения a и нового.

program raf105;

var a,b,a1: integer;

begin

writeln('Введите начальные значения');

write('a = ');

readln(a);

write('b = ');

readln(b);

while True do

begin

 writeln;

 write('a = ');

 readln(a1);

 b:= b+(a-a1);

 writeln('b = ',b);

 a:= a1;

end;

end.