Даны 6 различных чисел. Найти максимальное из них,
определив функцию, находящую максимальное из 2-х различных чисел.

function max(a, b: integer): integer;
begin
  max := a;
  if b > a then max := b;
end;

...
  writeln('max of 6 = ', max(max(max(n1, n2), n3), max(max(n4, n5), n6)))
...

P.S. А вот название темы нехорошее... Исправь...