Составить программу вычисляющую куб макс. элемента в массиве - Pascal ABC

Формулировка задачи:

Привет, у меня тут дилемма .

Изучаю паскаль в 9 классе. Дали задание - "Составить программу вычисляющую куб максимального элемента в массиве". Я начал делать и у меня тут начались проблемы(выдает ошибки).Напишите в чем моя проблема в данном "коде" или как его тут называют. Вот он

Program max;
Uses crt;
Var 
 a:array [1..10] of integer;
 k,i:integer;
Begin
Clrscr;
Randomize;
 for i:=1 to 10 do 
Begin
 a[i]:=random(100);
 writeln('a[',i,']= ',a[i]);
end;
k:=1;
for i:=2 to 10 do 
if a[i]>a[k] then k:=i;
k=max*max*max
writeln('Квадрат o элемента =',a[k]);
End.

Решение задачи: «Составить программу вычисляющую куб макс. элемента в массиве»

Листинг программы

var
  a: array [1..10] of integer;
  max, i: longint;
 
begin
  Randomize;
  for i := 1 to 10 do 
  begin
    a[i] := random(100);
    write(a[i]:6);
  end;
  max := a[1];
  for i := 2 to 10 do 
    if a[i] > max then 
      max := a[i];
  writeln;
  writeln('Max: ', max);  
  max := max * max * max;
  writeln;
  writeln('Куб элемента =', max);
end.

Объяснение кода листинга программы

Объявляется массив a размером 10, инициализируется случайными значениями от 0 до 99.
Выводится на экран каждое значение массива a.
Переменная max инициализируется значением первого элемента массива a.
Происходит сравнение каждого элемента массива a с переменной max, и если текущий элемент больше max, то max обновляется.
Выводится на экран значение переменной max.
Переменная max вычисляется как куб значения переменной max.
Выводится на экран значение переменной max, равное кубу максимального элемента массива a.