Даны действительные числа A1,A2…An. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа — Pascal(Паскаль)

program m1;
const n =8;
var
max,i:integer;
a: array[1..n] of integer = (39,-43,6,8,13,8,3,1);
begin

for i:=1 to n do 
begin
write(' ');
write(a[i]);
end;
writeln();

max:=a[1];
for i:=1 to n do 
if max<a[i] then max:=a[i];
for i:=1 to n do 
if max<abs(a[i]) then a[i]:=0;

for i:=1 to n do 
begin
write(' ');
write(a[i]);
end;
end.