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

Program prog;uses crt;var a: array [1..10] of integer;    i, max: integer;beginclrscr;randomize;max:=0;for i:=1 to 10 do    begin;    a[i]:= random(100);    if a[i]>max then max:=a[i];    writeln('a[',i,'] = ', a[i]);    end;writeln;     for i:=1 to 10 do    begin;    if a[i]>55 then a[i]:=max;    writeln('a[',i,'] = ', a[i]);    end;end.