Найти Max число, используя функцию.

[Roman1295]

Ввести восемь чисел. Найти максимальное, используя функцию нахождения максимума из двух значений.

function FAN(a : integer) : integer;
  var i,max: integer; mas:Array[1..8] of integer;
  begin
  For i:=1 to 8 do
  begin
  mas[i]:=a;
  max:=mas[1];
  If mas[i]>max then max:=mas[i];
  write(max);
  end;
  end;
  
  var a: integer;
  begin
  readln(a);
  write(FAN(a));
  end.

Просьба тыкнуть носом в ошибки.

[VIK_aka_TOR]

вы сперва объясните, желательно построчно, свою логику попытки решения данного задания...
как вариант можно так:

var
 max, a : integer;

function FAN(a, b : integer) : integer;
  begin
    if a > b then
     fan := a
    else 
     fan := b;
  end;
  
  var a: integer;
  begin
  readln(max);
   for i:=1 to 7 do
     begin
      readln(a);
      max := fan(a,max);
     end;
writeln(' max = ',max);
  end.

[Roman1295]

Сообщение от VIK_aka_TOR

вы сперва объясните, желательно построчно, свою логику попытки решения данного задания...

В функции ввожу 8 чисел, загоняю их в массив и сравниваю, ищу максимум. В теле программы вызываю ф-ю... Запутался совсем, даже не знаю, почему именно так начал делать.

[VIK_aka_TOR]

Сообщение от Roman1295

В функции ввожу 8 чисел, загоняю их в массив и сравниваю, ищу максимум. В теле программы вызываю ф-ю... Запутался совсем, даже не знаю, почему именно так начал делать.

объявление в функции нашел, ввод в функции не нашел...
да и по паставленой задаче наверное нужно 2 числа в функции сравнивать а не все 8 перебирать... честно говоря ваш код кажется мне ... несколько случайно сгенерированным... мягко говоря...

[Roman1295]

Сообщение от VIK_aka_TOR

объявление в функции нашел, ввод в функции не нашел...
да и по паставленой задаче наверное нужно 2 числа в функции сравнивать а не все 8 перебирать... честно говоря ваш код кажется мне ... несколько случайно сгенерированным... мягко говоря...

Именно ввод 8 чисел и их сравнение сбили меня с истинного пути, в случае, если надо было бы сравнить 2 или 3 числа, я бы смог справиться. Вот и прошу помощи, никак не разберусь.
Нашел на форуме код, но только сравнение 6 чисел, как бы мне его подкорректировать, чтобы вводить свои числа в массив и впихнуть это в мою программу:

x1:=1;x2:=1;
for i:=2 to 8 do begin
if a[i]>a[x1] then x1:=i;
if a[i]<a[x2] then x2:=i;
end;
write('max=',a[x1]);

[VIK_aka_TOR]

посмотрите второй пост... должен подойти в вашем случае... ввод 8 чисел.. функция сравнивает 2 числа... вроде как удовлетворяет всему..

[Roman1295]

Сообщение от VIK_aka_TOR

посмотрите второй пост... должен подойти в вашем случае... ввод 8 чисел.. функция сравнивает 2 числа... вроде как удовлетворяет всему..

Премного Вам благодарен.