Помогите с кодами программ на языке Delphi6.

[zaq1]

Вот условие 2х задач.Нужны только коды программ по этим задачам на языке Delphi6.Помогите, это контрольная.

Задача 1.

Ввести одномерный массив, состоящий из 10 элементов. Значения массива задать функцией Random (R), где R=10.Вывести сформированный массив на экран в компонент Label1.
Найти максимальный среди четных по значению элементов массива и его индекс. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

Задача 2.

Ввести одномерный массив, состоящий из 6 элементов. Значения массива ввести в компонент String Grid1. Вывести сформированный массив на экран в компонент Label.
Найти среднее арифметическое отрицательных нечетных элементов массива. Результат вывести на экран в компонент Label2. Процедуру выполнения данного задания оформить в событии Button1Click компонента Button1.

[InfStudent]

И чего? И нет такого языка Delphi 6))