@Чайник

Задача: Дана матрица. В заданной матрице поменять К-ю строку и L-й столбец местами. Предусмотреть обработку следующих исключ ситуаций: матрица не квадратная, в ячейках введены не числа (вадавать сообщение "Проверьте правильно ли Вы заполнили все ячейки")

Вот что я написала:
procedure TForm1.BitBtn1Click(Sender: TObject);
var a,b:array[0..100,0..100] of integer;

i,j,m,n:integer;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);

try
for i:=0 to (m-1) do
for j:=0 to (n-1) do begin
a[j,i]:=StrToInt(StringGrid1.Cells[j,i]);end;
except ShowMessage('Проверьте правильно ли Вы заполнили все ячейки?');
exit;
end;
if m<>n then ShowMessage('Проверьте правильно ли Вы заполнили все ячейки?');






осталось только поменять местами строку и столбец.....
помогите пож, савсем не врубаюсь(((

0

@MAcK

1. создаешь масив z[1 .. 100]
2. Заполняешь масив нужной строкой
3. Заполняешь строку столбцом
4 Заполняешь столбец масивом z

1