Оптимальный алгоритм спиральной матрицы Опции

[Akusov]

Здравствуйте! Есть задача - написать оптимизированную по размеру исполняемого файла без ассемблерных вставок(можно использовать прерывания) программу для заполнения матрицы по спирали для случаев от 1 до 9. Задачу решил и написал самый оптимизированный алгоритм, который я смог из себя выдавить. Скажите, что ещё здесь можно оптимизировать или уже стоит приступать к замене ввода на безэховый и вывода через прерывания? Может от каких переменных избавиться? Или циклы оптимизировать можно?

 
program spiral;
var
 m: array [1..9, 1..9] of word; //Сама матрица
 n: word; //Размерность матрицы
 i: word; //Индексы матрицы
 j: word;
 c: word; //Вводимое число
 l: word; //Длина стороны
 s: integer; //Флаг меняющийся между значениями -1 и 1
 t: word; //Координата поворота
 p: ^word; //Указатель на координаты
begin
 readln(n);
 l := n;
 t := n;
 s := 1;
 i := 1;
 p := @j;
 repeat
  p^ := p^ + s;
  c := c + 1;
  //Если достигнута точка поворота
  if p^ = t then begin
   //Меняем изменяемую координату
   if p = @j
    then begin
     p := @i;
     l := l - 1;
    end else begin 
     p := @j;
     s := -s;
    end;
   //Узнаём координату следующего поворота
   t := p^ + s*(l);
  end;
  m[i,j] := c;
 until l = 0;
 //Обычный вывод
 for i:=1 to n do begin
  for j:=1 to n do write(m[i,j]:3);
  writeln;
 end;
end.

[Халявов]

Интересно, в каком вузе дают подобные программы? Ну в смысле, что явно академическая задача и "давайте её оптимизировать".

написать оптимизированную по размеру исполняемого файла

-и сколько получилось?

Матрица по спирали - попробуйте, сравните.

[Akusov]

Интересно, в каком вузе дают подобные программы? Ну в смысле, что явно академическая задача и "давайте её оптимизировать".

написать оптимизированную по размеру исполняемого файла

-и сколько получилось?

Матрица по спирали - попробуйте, сравните.

Моя после компиляции без всяких особых натроек компилятора весит 3104 байта
Вами, приведённая 3776 байт

Задано в КубГУ, ну как задано... За самую маленькую в группе самоэкз получить можно)
Рекорд за всё время говорят где-то к 1200 байт приблизился.