Массивы. Delphi. StringGrid

[emalf]

В делфи, через графу Additional/StringGrid.
Я очень плоха с этими массивами, если не сложно распишите как это все делается,пожалуйста,скину 100 рублей на телефон кто поможет.
Условие:Дан массив 1. Переписать пять первых положительных элементов массива подряд в массив 2. Найти максимальный элемент массива 2.

Нужно сделать на примере этого кода:

procedure TForm1.BitBtn1Click(Sender: TObject);
var n,i,m:integer;
a,b:array[1..100] of integer;
begin
n:=StrToInt(MaskEdit1.Text);
for i:=1 to n do
StringGrid1.Cells[i,0]:=IntToStr(a[i]);
m:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then
begin
m:=m+1;
b[m]:=a[i];
end;
end;
if m<>0 then
for i:=1 to m do
StringGrid2.Cells[i,0]:=IntToStr(b[i])
else
MessageDlg('V massive net chetnih elementov',MtInformation,[mbOk],0);

end;
end.

[Serge_Bliznykov]

emalf
Вы StringGrid используете в качестве редактора/визуального представления вашего массива?

Форму создали, на неё StringGrid положили? с этим хотя бы проблем нет?

Сообщение от emalf

Нужно сделать на примере этого кода:

p.s. кстати, пример кода у Вас ошибочный, не рабочий. Массив объявлен, ничем не заполнен, а Вы его содержимое в грид выводите.
там мусор будет...