Определить номер наименьшего из значений a[i]^2-c[i]^2

[Аелд]

Подскажите, пожалуйста. Вот, я написал программу. Вроде, все правильно выводит, но преподаватель говорит, что нужно вывести промежуточные данные. И я что-то не понял, а какие?

var a,c:array [1..20] of real;
    i,n,imin:integer;
    min:real;
begin
  writeln('Ведите число элементов массива n= ');
  readln(n);
  if n<0 then
    writeln('Неверные исходные данные')
  else 
 begin
      writeln('Введите массив a: ');
      for i:=1 to n do
        read(a[i]);
      writeln('Введите массив c: ');
      for i:=1 to n do 
        read(c[i]);
  imin:=1;      
  min:=sqr(a[1])-sqr(c[1]);
  for i:=1 to n do
    if sqr(a[i])-sqr(c[i])<min then
    begin
      min:=sqr(a[i])-sqr(c[i]);
      imin:=i;
    end; 
   writeln('Номер минимального значения imin= ', imin);
   writeln('Минимальное значение min= ', min:4:2);
 end;
end.

[newerow1989]

Может вывести внутри цикла

Writeln(sqr(a[i])-sqr(c[i]));

как раз будет промежуточные