Одномерный массив Delphi6

[kazanova]

Здравствуйте уважаемые гуру информатики.
Выполняю лабу на делфи 6.Проблемы с массивами возникают.Я делаю, а препад говорит, что мол не верно.
Вот задание :
Цель работы:
• получение практических навыков в работе с одномерными массивами.
• изучение свойств компонента stringGrid.
Составить код программы, которая выполняет следующие действия:
1. Формирование одномерного целочисленного массива размером N, значения элементов массива задать в компоненте stringGrid.
2. Вывод значений элементов массива с пояснениями в компонент Label1.
3. Вычисление параметров одномерного массива и вывод их в компонент Label2 с пояснениями (пример см рис.7.1).
Значения N и параметры вычисления одномерного массива взять в соответствии с вариантом из таблицы 7.1.
Все вычисления оформить в событии Click компонента Bitbtn1.
Размер N 9. Ввести в память ЭВМ одномерный массив D, состоящий из N целочисленных элементов. Вывести на экран дисплея значения и индексы положительных элементов, кратных по значению 3.
вот мой код , который я начал писать :

Цитата:
proceduretform Button.......
var
A:array[0..8] of integer;
begin
for i;=0 to 8 do
begin
a:=strtoint(s1.cells)[i,0];


Я работаю в делфи 6 , и эта лабораторная работа очень важна для меня, ибо хвостов так хватает.Помогите.Мне чень нужна ваша помощь и готовая лаба.=) С уваженем и наилучшими пожеланиями, Алексей.

[Хыиуду]

if a mod 3=0 then showmessage(inttostr(a));

[kazanova]

if a mod 3=0 then showmessage(inttostr(a));

Спасибо! Я уже сдал лабу))))