var i, j: Integer; begin for i := 0 to 4 do for j := 0 to 3 do StringGrid.Cells[i, j] := IntToStr(A[i, j]);