помогите написать программу в языке Pascal ABC (решение с помощью if,

Var a,b,s:integer;
begin
         a:= 17;
         b:= 46;
         s:= a+b;
         if alt;gt;b then 
                            begin
                                     a:= s;
                                     b:= s
                             end
                       else
                             begin
                                      a:=0;
                                      b:=0
                             end;
          write('a = ',a,' b = ',b)
end.