Даны три числовые последовательности a, b и c. Сформировать две новые последовательности x и y в соответствии со следующим правилом

Var a,b,c:array[1..100] of integer;
    x:array[1..100] of real;
    d,i,n,max:integer;
Begin
    write('Введите n: ');readln(n);
    writeln('Последовательность a');
    For i:=1 to n do
    Begin
      A[i]:=random(15);
      write(A[i]:4);
    End;
    writeln;
    writeln('Последовательность b');
    For i:=1 to n do
    Begin
      b[i]:=random(15);
      write(b[i]:4);
    End;
    writeln;
    writeln('Последовательность c');
    For i:=1 to n do
    Begin
      c[i]:=random(15);
      write(c[i]:4);
    End;
    writeln;
    write('Введите d: ');readln(d);
    writeln('Последовательность x');
    For i:=1 to n do
    Begin
      if A[i]>b[i] then max:=a[i]
       else max:=b[i];
      if d>max then max:=d;
      x[i]:=max/2;
      write(x[i]:6:2);
    End;
    readln;
End.