задайте массив из 10 частей с помощью датчика случайных чисел. все

Program prog;
uses crt;

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

begin
clrscr;
randomize;
max:=0;

for i:=1 to 10 do
    begin;
    a[i]:= random(100);
    if a[i]gt;max then max:=a[i];
    writeln('a[',i,'] = ', a[i]);
    end;

writeln;
    
 for i:=1 to 10 do
    begin;
    if a[i]gt;55 then a[i]:=max;
    writeln('a[',i,'] = ', a[i]);
    end;
end.