Даны 2 числа , если первое число больше второго то их удвоить , если равны то вывести сообщения

Var a,b:integer;
begin
readln(a,b);
if a<>b then
begin
if a>b then
begin
a:=a*2;
b:=b*2
end;
writeln('a=',a,'   b=',b)
end
else writeln(a,'=',b)
end.