Переименуйте глобальные
n и
k в
n1 k1 и делайте так
Код:
procedure TForm9.Button3Click(Sender: TObject);
//-----
var
n, k: integer;
//-----
begin
n1:=strtoInt(InputBox('Размер массива', 'Введите число строк в массиве','0'));
k1:=strtoInt(InputBox('Размер массива', 'Введите число столбцов в массиве','0'));
//-----
n:=n1;
k:=k1;
//-----
SetLength(Ar,n, k);
//установка размера массива
end; и так во всех процедурах добавьте во первых строках до и после
begin