Pascal ABC PLS HELP ME второе пожалуйста

Program NoName;

Var vid,i,n,k,max:integer;

sr:real;

a:array[1..9999] of integer;

Begin

mx:=0;

max:=0;

k:=0;

vid:=0;

sr:=0;

Read (n);

For i:=1 to n do

Begin

Writeln(a[i] :3);

max:=a[1];

If a[i] > max then

max:=a[i];

If a[i] < 0 then

Begin

vid:=vid + a[i];

k:=k+1;

End;

End;

sr:=vid / k;

For i:=1 to n do

Begin

If a[i] < max then

Write (a[i])

Else

Write (sr);

End;

End.

Не могу быть уверенным за правильность, нет возможности проверить