DEPHI БОГОВ ТРЕД ИТТ*
________________________________________________

почему эта срань вместо того чтобы работать, заставляет программу вылетать ?
__________________________________________________
{-----------создание массива------------}
procedure input( var _mas: mas; var n: integer; var m: integer );
var
i, j, k_min, k_max: integer;
begin
randomize;
write('Ведите кол-во строк ');
Readln(m);
write('Введите кол-во столбцов: ');
Readln(n);
write('Введите минимальное значение диапазона: ');
Readln(k_min);
write('Введите максимальное значение диапазона: ');
Readln(k_max);
if k_min > 0 then
begin
k_max:=abs(k_max)-k_min;
for I := 0 to m - 1 do begin
for j := 0 to n - 1 do
_mas[i, j]:= random(k_max)-k_min;
end;
end
else
begin
k_max:=abs(k_min)+abs(k_max)+1;
k_min:=abs(k_min);
for I := 0 to m - 1 do begin
for j := 0 to n - 1 do
_mas[i, j]:= random(k_max)-k_min;
end;
end;