Найдите ошибку в маленьком коде

[Crabobass]

Задача.
Даны целые числа A1..A15. Получить сумму тех чисел которые кратны 5 и имеют отрицательное значение. Сформировать массив С из значений зад. массива А.

Оформление.
На форме располагаются два СтрингГрида. В первый записываются значения (массив А). Во второй выводятся подходящие по условию числа.

Проблема.
Написал всё кроме нахождения суммы чисел подходящих по условию задачи. Всё прекрасно компилируется...НО! После того как StringGrid1 заполнен с клавиатуры и после того как кликнешь по кнопке компилятор выдаёт ошибку: "Project Project1.exe raised exception class EConvertError with message"'is not valid integer value'. Process stopped.
Use step or Run to continue.

В чём проблема то?? Никак не могу понять...Помогите пожалуйста разобраться. Главное устранить эту критическую ошибку.

п.с. Не ругайтесь за корявость, особенно с if..then. Ну я только учусь.



Код

"

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,m:integer;
    a,c:array [1..15] of integer;
begin
    for i:=1 to 15 do
      a[i]:=StrToInt(StringGrid1.Cells[1,i]);//присвиваем массиву А значения из Стринг грида
   for i:=1 to 15 do
    if (a[i] mod 5=0) then
    if a[i]>0  then //ищем отрицательные и кратные 5 числа
      for m:=1 to 15 do
      c[m]:=a[m];//подходящие числа присваеваем массиву С
    for i:=1 to 15 do
    StringGrid2.Cells[1,i]:=IntToStr(c[i]);//заполняем стрингГрид числами с массива С
    end;
end.

[Kotlyar562]

Я заметил только ошибку в логике твоей программы. У тебя: если а кратно 5 и больше нуля, то ты все значения массива а[m] присваиваются соответственно массиву с[m].
Надо:

m:=1;
if (a[i] mod 5=0) and (a[i]<0) then
begin
  c[m]:=a[i];
  m:=m+1;
end;

Вроде так. А вот отчего ошибка не пойму, похоже чтото с конвертированием величин, только не догоню что именно. С виду правильно все))

[veniside]

> В чём проблема то?

очевидно, тут:

a[i]:=StrToInt(StringGrid1.Cells[1,i]);

В одной из ячеек [1,i] пустая строка, которая не может быть преобразована в число.

[Serge_Bliznykov]

veniside +1

добавлю. Это TStringGrid делал человек с перепутанными взглядами на массивы, поэтому первым идёт индекс СТОЛБЦА, а вторым - индекс СТРОКИ.
поэтому эта запись:

 for i:=1 to 15 
   ... StringGrid1.Cells[1,i]

предполагает что во втором СТОЛБЦЕ (первый - нулевой, там, скорее всего название или номер), начиная со втрой строки, сверху вниз должно быть 15 целых чисел!