Пусть даны целые числа а1,…а100. Получите новую последовательность из 100 целых чисел, заменяя аi нулями, если значение │аi│ не равно максимальному из аi,…а100 , и заменяя аi единицей в противном случае.(i=1,…100) — Pascal(Паскаль)

Program PascalGuru;

var
  i: integer;
  a, new: array [1 .. 100] of integer;
  max: integer;

begin
  for i := 1 to 100 do
    a[i] := 0 + random(27);

  writeln('Ishodnaya posledovatelinosti:');
  for i := 1 to 100 do
    write(a[i]:5);
  writeln;

  max := a[1];
  for i := 2 to 100 do
    if a[i] > max then
      max := a[i];

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

  writeln('Preobrazovannaya posledovatelinosti:');
  for i := 1 to 100 do
    write(a[i]:5);

  readln;

end.