Почему не всегда output перезаписывает?

[Nikita++]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
n,m,h,min,max: integer;
t1,t2:textfile;
begin
assignfile(t1, 'input.txt');
assignfile(t2, 'output.txt');
reset(t1);
readln(t1,n,m);
if n>m then
begin
max:=n;
min:=m;
end
else
begin
max:=m;
min:=n;
end;
repeat
begin
max:=max mod min;
min:=min mod max;
end;
until (min=0) or (max=0);
rewrite(t2);
if min=0 then writeln(t2, max)
else writeln (t2, min);
closefile(t1);
closefile(t2);
end.