Одномерные массивы, подпрограмма, максимум.

[Holy]

Помогите пожалуйста решить задачу.
Дано массивы А(10), B(10), C(10). Необходимо сформировать массив D, каждый элемент которого есть максимальное значение соответсвующих элементов А, Б, С, т.е Di=Max {Ai, Bi, Ci}. Нахождение максимального значения оформить в виде подпрограммы.
Спасибо заранее!
Собственно ввести массивы и сформировать новый массив я могу, единственно затруднение я не могу написать подпрограмму для нахождения максимального значения...
ЗЫ ПаскальАБС

[Naeel Maqsudov]

Код: Выделить всё

type
  TArr = array[1..10] of integer;
var
  a,b,c,d:TArr;
  i:integer;
function max3(x,y,z:integer):integer;
begin
  if x>y then begin
    if x>z then max3:=x else max3:=z;
  end else begin
    if y>z then max3:=y else max3:=z;
  end;
end;

begin
  randomize;
  writeln('Исходные данные');
  writeln('A':10,'B':10,'C':10);
  for i:=1 to 10 do begin
    a[i]:=random(100)-50;
    b[i]:=random(100)-50;
    c[i]:=random(100)-50;
    writeln(a[i]:10,b[i]:10,c[i]:10);
  end;

  writeln;
  writeln('Результат');
  writeln('A':10,'B':10,'C':10,'D':10);
  for i:=1 to 10 do begin
    d[i]:=max3(a[i],b[i],c[i]);
    writeln(a[i]:10,b[i]:10,c[i]:10,d[i]:10);
  end;
end.