Ответ:

var i,j: byte;

begin

writeln ('Заполнение массива случайными числами.');

randomize;

for i := 1 to k do

arr[i] := random (100);

for j := 1 to k do

arr[j] := random (100);

end;

Объяснение: