[Басота]

Добрый вечер. Подскажите, пожалуйста, со следующим вопросом. Для реализации многопоточности мне нужно, чтобы каждый поток работал со своим одномерным массивом, то есть: первый поток работал с массивом ui1, второй – с ui2, третий – с ui3 и т.д. Поток (PotokNumber) будет работать с массивом uiPotokNumber. Мне нужна Ваша помощь только для кода, представленного ниже. Пожалуйста, не пишите мне, что тут нет многопоточности: я это знаю. Спасибо Вам за помощь.

Мне нужно реализовать код, чтобы он выполнял примерно следующие действия:

Вызов процедуры обязательно должен быть в цикле.

Код:

for k:=1 to PotokNumber do
begin
procedure Pro (k, ui^[k]);
for j:=1 to 10 do OldMas[j]:=ui^[k] [j];
end;

procedure Pro (a:integer; var New^[а]:arrptr);
var l:integer;
begin
for l:=1 to 10 do
New^[а][l]:=l/2
end;

lmikle: Используем ПРАВИЛЬНЫЕ теги!