Уменьшение размера exe файла

var
  a:array[1..9,1..9] of byte;
  i,i_n,i_v,j,j_n,j_v,k,m,n:byte;
begin
  write('Vvedite n: ');
  readln(n);
  j_v:=1;
  j_n:=n;
  i_v:=2;
  i_n:=n;
  k:=0;
  repeat
    for j:=j_v to j_n do
    begin
      inc(k);
      a[i_v-1,j]:=k;
    end;
    for i:=i_v to i_n do
    begin
      inc(k);
      a[i,j_n]:=k;
    end;
    dec(j_n);
    for j:=j_n downto j_v do
    begin
      inc(k);
      a[i_n,j]:=k;
    end;
    dec(i_n);
    for i:=i_n downto i_v do
    begin
      inc(k);
      a[i,j_v]:=k;
    end;
    inc(i_v);
    inc(j_v);
  until k>=n*n;
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:4);
  writeln;
  end;
  readln;
end.

{$S-;$I-;$R-;$Q-;$D-;$W-;$A-;$Y-}
  procedure WriteChar(c: Byte);
  begin
    asm
      mov ah, $02
      mov dl, c
      int 21h
    end;
  end;
const
  n=9;
var
  i, j, k, l, m, p: Integer;
  A: Array[1..n,1..n] of Byte;
 
begin
  i:=1;
  j:=0;
  k:=1;
  m:=n;
  l:=1;
  while k<=n*n do
  begin
    p:=1;
    while p<=m do
    begin
      Inc(j, l);
      A[i,j]:=k;
      Inc(k);
      Inc(p);
    end;
    Dec(m);
    p:=1;
    while p<=m do
    begin
      Inc(i, l);
      A[i,j]:=k;
      Inc(k);
      Inc(p);
    end;
    l:=-l;
  end;
  i:=1;
  repeat
    j:=1;
    repeat
      WriteChar($20);
      if A[i,j] div 10=0 then WriteChar($20)
      else WriteChar(A[i,j] div 10+48);
      WriteChar(A[i,j] mod 10+48);
      Inc(j);
    until j>n;
    WriteChar($A);
    WriteChar($D);
    Inc(i);
  until i>n;
  asm
    mov ah, $01
    int 21h
  end;
end.