Помогите пож-та решить задачу в Паскале

[4otenado]

Вводится 16 чисел. Найти максимальный элемент среди трёхзначных чисел и среднее арифметическое четных

[NoHeart]

const n=16;
var i,max,k:integer;
     mid:real;
     a:array [1..n] of integer;

begin
max:=0;
mid:=0;
k:=0;
for i:=1 to n do
 begin
   writeln (' Введите число №',i);
   readln(a[i]);
 end;
for i:=1 to n do 
   begin
    if (trunc(a[i] div 100)>0) and (trunc(a[i] div 1000)=0) then
          if a[i]>max then max:=a[i];
   if a[i] mod 2=0 then
    begin
      inc(k);
      mid:=mid+a[i];
    end;
end;
mid:=mid/k;
writeln (' Наибольшее из трехзначных чисел =',max);
writeln (' Среднее арифметическое четных чисел =',mid);
end.

Возможны ошибки, писал без паскаля.

[danekne]

зачем trunc? a[i] - априори целое число в твоем коде. Еще... первое условие будет -if (a[i]>99) and a[i]<1000 then

[NoHeart]

Сообщение от danekne

зачем trunc? a[i] - априори целое число в твоем коде. Еще... первое условие будет -if (a[i]>99) and a[i]<1000 then

Действительно, с условиями ступил=))) Но и так, программа работает правильно.