Даны числа a и b найти общие делители p.s. на паскале

Var
 a, b, i: integer;

begin
  readln(a, b);
  for i:=1 to max(a, b) do
    if (a mod i = 0) AND (b mod i = 0) then
      write(i, ' ');
end.