Задача про спички - Turbo Pascal

Формулировка задачи:

Петя Пяточкин часто любил составлять различные фигуры из спичек. Он высыпал на стол некоторое количество спичек и, перемещая их, строил всевозможные причудливые изображения. Однажды он решил построить из заданного набора целых спичек прямоугольник максимальной площади. Требования к программе: Программа должна считывать входные данные с файла INPUT.DAT. В первой строке этого файла содержится одно целое число N - количество спичек единичной длины на столе (1 ≤ N ≤ 10000). Результат выполнения программы должен записываться в выходной файл OUTPUT.REZ. В первой строке этого файла выводится два целых числа, разделенных пробелом: первое - это максимальная площадь прямоугольника, построенного из спичек, второе - это количество спичек, не использованные при построении. Вот накидал код, файлы в папке с программой, но не проходит олимпиадные тесты, что делать?

program sirniki;
var
   a,b,n,j,i,d,e:integer;
   f,f1:text;
begin
    assign(f,'INPUT.DAT.TXT');
    reset(f);
    readln(f,n);
    close(f);
    for i:=1 to n div 4 do
        begin
        j:=(n-2*i) div 2;
        a:=i;
        b:=j;
        end;
        d:=a*b;
        e:=n-(2*a+2*b);
    assign (f1,'OUTPUT.REZ.TXT');
    rewrite(f1);
    write(f1,d,' ',e);
    close(f1);
    end.

Решение задачи: «Задача про спички»

Листинг программы

var
   n,i,s:integer;
begin
    readln(n);
    i:=1; s:=0;
    while i<=(n div 4) do begin
      if i*((n-2*i)div 2)>s then s:=i*((n-2*i)div 2);
      i:=i+1;
    end;
    writeln(s,' ',(n-2*i)mod 2);
end.

Объяснение кода листинга программы

В начале кода объявляются три переменные: n, i, s типа integer (целое число).
Переменная n инициализируется значением, которое считывается с помощью функции readln().
Переменная i инициализируется значением 1.
Переменная s инициализируется значением 0.
Запускается цикл while, который выполняется до тех пор, пока i меньше или равно n, разделенному на 4.
Внутри цикла проверяется, является ли текущее значение i больше, чем s. Если это так, то s обновляется значением i.
Значение i увеличивается на 1.
По завершении цикла, выводится значение s и (n-2*i)mod 2. Список действий:
Считывание значения n.
Инициализация i и s.
Начало цикла while.
Проверка условия и обновление s.
Увеличение i.
Вывод s и (n-2*i)mod 2.
Окончание цикла while.