[Dym_aka_Han]

Помогите написать программу одномерного массива используя три StringGrid или Memo из пяти элементов. Положительные числа на второй StringGrid (или Memo), а отрицательные числа на трети.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  m:array[0..4] of integer;
  i,k:integer;
begin
  for i:=1 to 5 do
  begin
    if m[i]<0 then
    m[i] := StrToInt(StringGrid1.Cells[i,0]);
       inc(k);
    memo1.Lines.Add(inttostr(m[k]));
  end;
end;

здесь работа только отрицательных чисел и то не работает
Подскажите пожалуйста!