Даны действительные числа a1, a2, … , an. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа (|ai| > max{a1, a2, … , an}) — Pascal(Паскаль)

USES CRT;
var
X,y:array [1..16] of integer;
i,max,maxi:integer;
Begin
 CLRSCR;
 Randomize;
 Write('последовательность: ');
 For i:=1 to 16 do
 X[i]:= random (20)-10;
 For i:=1 to 16 do
 Write (X[i],' ');
 Writeln;
 For i:=1 to 16 do
 if x[i]>max then
 max:=x[i];
 write('маскимальное число ',max);
 writeln;
 writeln('замена: ');
 maxi:=abs(x[i]);
 For i:=1 to 16 do
 If max<abs(x[i]) then
 begin
  maxi:=x[i];
  maxi:=0;
  y[i]:=maxi;
  writeln(' число ',x[i],' заменено на ',y[i],' ');
 end;
 Readkey;
end.