еще одну программу. очень надо:) люди, плиз. составьте пожалуйста. у меня экзамен: (

иди домой, двоечница! не отнимай время преподавателя и своих сокурсников.
var
a,b,c,X :array[1..10] of integer;
Z :array[1..30] of integer;
max:integer;
i,j:integer;
begin
j := 1;
randomize
// ввод исходных данных через датчик случайных чисел
for i := 1 to 10 do
begin
a [ i ] := random(100);
b [ i ] := random(100);
c [ i ] := random(100);
end;
// отображение
writeln(' mass a ');
for i := 1 to 10 do
write(' ', a [ i ] );

writeln(' mass b ');
for i := 1 to 10 do
write(' ', a [ i ] );

writeln(' mass c ');
for i := 1 to 10 do
write(' ', a [ i ] );

// а тут будет заполнение массива максимальными значениями из 3х массивов через функцию Fmax - сама напиши, в массиве поиск максимального значения с учетом уже найденного на предыдущем шаге заполнения
while j<10 do
begin
...
X[ j ] := Fmax(j);
inc(j);
end;
// вывод результата
writeln;
for i := 1 to 10 do
write(' ', x [ i ] );
readln;
end;

Напишите чем конкретно вам помочь то…

Если полностью исходный код, то:
За ваши деньги — любой каприз!
А нету денег, не чего и капризнячать!

Наверно будет проще сформировать массив на 30 элементов, и вписать в него все три массива, потом отсортировать его по убыванию и взять первые 10 элементов

Или производить сортировку сразу по трём массивам, цикл от 1 до 30, если в первой десятке, то берётся элемент из первого массива, второй десятке - второго.. . Если выделенная память важна)