Динамические массивы. delphi

[Multiman]

Здравствуйте! задание дали на лабораторной никак сделать не могу:

Составьте программу, в которой объявлен двумерный динамический массив целых чисел. Пользователь определяет количество строк и столбцов массива. Затем массив динамически заполняется случайными числами из диапазона, заданного пользователем. Вид исходного массива предоставляется пользователю. Далее вызывается подпрограмма, в которую передается исходный массив, итоговый массив также передается пользователю. Подпрограмма выполняет удаление элемента, находящегося на заданном пользователем месте, причем длина заданной строки не уменьшается, а уменьшается количество элементов в последней строке и все элементы после удаленного сдвигаются на одну позицию.

Из выше изложенного у меня только получилось объявить массив:
A : array of array of integer;
и длину его задать:
SetLength(A,StrToInt(Edit1.Text),St rToInt(Edit2.Text));

Остальное не получается у меня.

Помогите пожалуйста разобраться:
1. Как заполнить динамический массив рандомом, если его размер и диапазон задаются пользователем.
2. Как реализовать подпрограмму.

С динамическими массивами работаю первый раз поэтому возникли трудности. Если не сложно наглядно продемонстрируйте как реализовать данное задание.(основные моменты желательно объяснить) Язык DELPHI.

Заранее благодарен!

[Ybn2]

За символическую плату я могу тебе сделать с коментариями.

[Multiman]

Хотя бы рандом можете бескорыстно помочь сделать? задание то не сложное для знающих людей.

[Ybn2]

Вот заполнения массива Mas и вывод в TStringGrid; Edit1- Строки, Edit2 - Столбцы
Диапазон: Edit3 - Начало диапазона, Edit4 - Конец Диапазона

procedure TForm1.Button1Click(Sender: TObject);
Var mas:array of array of integer;
    i,j:integer;
begin
Randomize;
  SetLength (Mas,StrToInt(Edit1.Text),strToInt(Edit2.Text));
  StringGrid1.ColCount:=StrToInt(Edit1.Text);
  StringGrid1.RowCount:=strToInt(Edit2.Text);
  For i:=0 to Length(mas)-1 do
    For j:=0 to Length (mas[i])-1 do
     Begin
       Mas[i,j]:=StrToInt(Edit3.text)+Random(StrToInt(Edit4.Text)-StrToInt(Edit3.text)+1);
       StringGrid1.Cells[i,j]:=IntToStr(Mas[i,j]);
     end;
end;
end.

Посмотри, я изменил заполнения для заданного диапазона

[Multiman]

Спасибо большое все работает!)

Вопрос с подпрограммой остается открытым.

Mas[i,j]:=Random(strtoint(Edit3.Text)); да в принципе и так бы прокатило)

[Ybn2]

Сообщение от Multiman

Mas[i,j]:=Random(strtoint(Edit3.Text)); да в принципе и так бы прокатило)

Вам виднее, просто если так, то нижняя часть диапазона будет равна 0 и не когда не будет равна последниму числу из диапазона. т.е. Random (10) - выдает случайные числа от [0 до 9]

[Multiman]

а точно спасибо большое) я ваш вариант использовал.

[Ybn2]

К стати, Вам необходимо делать проверку, чтобы правильно вводился диапазон (нижний и верхний) приблизительно так:

  If StrToInt(Edit3.text)>StrToInt (Edit4.txt) then
    Begin
       ShowMessage ('Не правельный диапазон');
       exit;
   end;

или

  If StrToInt(Edit3.text)>StrToInt (Edit4.txt) then 
      Begin 
         st:=Edit3.text; //Var St:String;
         Edit3.text:=Edit4.text;
         edit4.text:=st;
     end;

[Multiman]

обязательно сделаю. но это мелочи уже) главное чтоб по заданию все работало.

Поможет кто-нибудь подпрограмму написать???

[Ybn2]

Ты говори, какие еще вопросы?