Получить последовательность по правилу

const n=100;
var a:array[1..n] of integer;
   i, max:integer;
begin
randomize;
writeln('massiv ');
max:=a[1,1];
 
for i:=1 to n do
if a[i,j]>max then max:=A[i,j];
 begin
  a[i]:=random(10);
  write(a[i]:4);
  if a[i]>max then max:=a[i];
 end;
writeln;
writeln('maximum', max:3);
writeln;
writeln('3aMeHa Ha 0 u 1');
for i:=1 to n do
 begin
  if (a[i])=max then a[i]:=1 else a[i]:=0;
  write(a[i]:4);
 end;
readln
end.

var a:array[1..n] of integer;

max:=a[1,1];
if a[i,j]>max then max:=A[i,j];

const n=100;
var a:array[1..n] of integer;
   i, max:integer;
begin
randomize;
for i:=1 to n do begin
 a[i]:=random(10)-10;
  write(a[i]:4);
  if a[i]>max then max:=a[i];
 end;
 for i:=2 to max do
  if a[i]>max then
  max:=a[i];
writeln;
writeln('maximum', max:3);
writeln;
writeln('3aMeHa Ha 0 u 1');
for i:=1 to n do
 begin
  if (a[i])=max then a[i]:=1 else a[i]:=0;
  write(a[i]:4);
 end;
readln
end.

begin
max:=a[0];