Object StringGrid1: TStringGrid

Left = 8 Top = 176 Width = 169 Height = 113 DefaultColWidth = 30

DefaultRowHeight = 15 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goTabs] OnKeyPress = StringGrid1KeyPress

End

Object StringGrid2: TStringGrid

Left = 208 Top = 176 Width = 169 Height = 113 DefaultColWidth = 30

DefaultRowHeight = 15 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected]

End

Object BitBtn1: TBitBtn

Left = 392 Top = 296 Width = 75 Height = 25 Kind = bkClose

End

Object Button2: TButton

Left = 24 Top = 296 Width = 145 Height = 25 Caption = 'сформировать матрицу А'

OnClick = Button2Click

End

Object Edit1: TEdit

Left = 104 Top = 32 Width = 57 Height = 21 OnKeyPress = Edit1KeyPress

End

Object Edit2: TEdit

Left = 104 Top = 72 Width = 57 Height = 21 OnKeyPress = Edit2KeyPress

End

Object StaticText1: TStaticText

Left = 224 Top = 144 Width = 97 Height = 25 Alignment = taCenter

BorderStyle = sbsSunken Caption = 'вывод матрицы В'

End

Object Memo1: TMemo

Left = 216 Top = 8 Width = 257 Height = 105 Lines.Strings = ('Задание : дана матрица А, ' 'сформировать матрицу В, в которой элементы первого столбца заменить номером строки. Размерность 'матрицы А не превышает 10 строк и 10 столбцов. Элементами матрицы могут быть любые числа')

End

Object Button1: TButton

Left = 40 Top = 104 Width = 121 Height = 25 Caption = 'ввод размерности'

OnClick = Button1Click

End