Матрица. Сумма элементов главной диагонали

[GetMax]

Так вы ничего не добавляете в сумму,а просто в цикле присваиваете элементы главной диагонали

procedure TForm1.Button2Click(Sender: TObject);


begin
    Suma:=0;
    for i:=1 to N do
    suma:=Suma+StrToInt(StringGrid1.Cells[i,i]);
    m:=suma;
    memo1.Lines.Add(inttostr(m))
end;

[Gassan]

спс, биг за за ответ
по ссылке данной в предыдущем посте покавырялся и дошел

[Akiro1]

ДАна матрица n на n.Найти разность между элементами в одной строке,стоящими на главной и побочной диагоналях и сформировать из них дополнительный столбец. Решите плиз вот эту

[Akiro1]

с клавиатуры последовательно вводят два слова.Выести на экран "да" если одно из них являеться подстрокой другого(одно слово полностью входит в состав другого).