Можете подсказать как написать функцию которая вычесляло бы самое большое число из 5 чисел ну там x , z , f , g , k

Через Max двух чисел....

Function max_five(a, b, c, d, e: Integer): integer;
  { вспомогательная функция (вложенная) }
  function max(one, two: integer): integer;
  begin
    if one > two then max := one else max := two
  end;
  { конец вспомогательной функции }

begin
  max_five := max(a, max(b, max(c, max(d, e))));
end;

А для вычесления минимального есть функция min ?

Готовой - нет... Напиши сам, кто тебе мешает? Max тоже готовой нету, я как видишь написал, и можно пользоваться...

Спасибо , очень помог