freepascal 中输入一个数后，回车不换行是什么原因？

Question

写好一个程序var a,b,x,y,m,n,i,j,q:longint;    c:array[1..1000]of longint;begin    read(x,y,m);    a:=m div x;    b:=m div y;    n:=1;    for i:=1 to a+1 do      begin        for j:=1 to b+1 do        begin            if((a+1-i)*y+(j-1)*x<=m)then            begin                c[n]:=(a+1-i)*y+(j-1)*x;            end            else            begin                break;            end;        end;        n:=n+1;    end;                                          for j:=2 to n do    begin        if c[1]<c[j] then        begin            q:=c[1];            c[1]:=c[j];            c[j]:=q;        end;    end;    write(c[1]);end.然后run按要求输入第一个数据后，按回车，无法换行。刚安装好freepascal的时候是可以换行的，也不知道什么时候开始就无法换行了。