[Malkovich]

Здравствуйте! Помогите пожалуйста составить следующую программу : дана таблица (10x10), которая при загрузке приложения заполняется
случайными числами от 1 до 300. Обойти таблицу следующим образом: сверху вниз и снизу вверх и т.д.
При обходе таблицы , числа из ячеек заносить в ListBox. Также при обходе нужно отыскать
максимальное и минимальное числа и выделить их в таблице другим цветом.

Вот только то , что вышло :

Код:

for i := 1 to 10 do
  for j := 1 to 10 do
    begin
        v := table[i, l]; // горизонтально
    end;
for j := 1 to 10 do
  for i := 1 to 10 do
    begin
        h := table[i, l]; // вертикально
        
    end;