[Aidar4ig]

Код:

procedure TForm1.Button1Click(Sender: TObject);

var
  A,B:Byte;
   mas:array[1..25,1..25] of SmallInt;
   C : Array [1..25] Of Integer;
     i : Integer;
          begin
  Randomize;           //генератор чисел
  for A:=1 to 25 do
    for B:=1 to 25 do
         begin
   mas[A,B]:=random(100); //забиваем массив случайными числами
   StringGrid1.Cells[0,A-1]:=IntToStr(mas[A,1]); //выводим на экран
    StringGrid1.Cells[1,B-1]:=IntToStr(mas[B,2]); //выводим на экран
         begin
  C[25] := 0;
  For i := 24 DownTo 1 Do
  C[25-i] :=A[25-i]/B[25-i]- C[25-i+1];    
 end;
     StringGrid1.Cells[2,C[25-i]]:=IntToStr (C[25-i]);
 end;
 end;
 end.

ошибка выходит когда в стрингид С забиваю! =( исправьте пожалуйста! а еще программка тож вроде не оч правильно работает! там везде 0 выходит вроде!