Турбо паскаль некорректно компилирует программу

[barathrum]

Программа правильно компилируется через PascalABC.NET (результат выполнения программы ), но через турбо паскаль v.5, она выдает что попало, пример:
.
из-за чего такое может происходить?

исходный код:

program spiral;
uses crt;
var a:array[1..20,1..20]of integer;
    n,x,y,k,z,u:integer;
    f:real;
begin
clrscr;
write('n='); 
readln(n); 
f:=sqrt(n);
if frac(f)=0 then u:=trunc(f) else u:=trunc(f)+1; {находим размер массива}
if odd(u) then {для нечетного размера массива}
  begin
    x:=u div 2+1;y:=u div 2+1;
    k:=0;
    for z:=1 to u*u do {заполняем массив}
      begin
       a[x,y]:=z;
       case k mod 4 of {k (а точнее остаток от деления k на 4) указывает направление заполнение массива: вправо,вниз и т.д.}
       0:begin
         inc(y);
         if y=u-x+2 then inc(k);
         end;
       1:begin
         inc(x);
         if y=x then inc(k);
         end;
       2:begin
         dec(y);
         if y=(u-x+1) then inc(k);
         end;
       3:begin
         dec(x);
         if y=(x) then inc(k);
         end;
       end;
     end;
   end
else   {для четного}
   begin
     x:=u div 2;y:=u div 2;
     for z:=1 to u*U do
       begin
        a[x,y]:=z;
        case k mod 4 of
        0:begin
          inc(y);
          if y=(u-x+1) then inc(k);
          end;
        1:begin
          inc(x);
          if x=y then inc(k);
          end;
        2:begin
          dec(y);
          if y=(u-x) then inc (k);
          end;
        3:begin
          dec(x);
          if x=y then inc(k);
          end;
        end;
      end;
   end;
for x:=1 to u do
  begin
    for y:=1 to u do
    if a[x,y]>n then write(' ':4) else write(a[x,y]:4);      {вывод матрицы, заполнение пустых ячеек на экране}
    writeln;
  end;
readln
end.

[grandmixer]

хз, у меня твой код все норм в турбо паскале 7 работает