Функция которая в массиве ищет максимальный по модулю элемент

[Absent]

Составить функцию, исходными данными которой является массив Y1,Y2..Yn. Определить наибольшую абсолютную величину среди элементов массива.


вот что у меня получилось, но это не правильно

program Project2;

uses
  SysUtils;
type mas=array[1..100] of integer  ;
function NAV(y:mas):integer;
var i,n,k :integer;
begin
 k:=0;
write('n=');
readln(n) ;
for i:=1 to n do
begin
writeln('y[',i,']=');
readln(y[i]);
end  ;
for i:=1 to n do
if abs(y[i])>k then
k:=abs(y[i]);

nav:=k;
write('nav=',k) ;
readln;
 end;
end.

[kommunist]

вот алгоритм твоей задачи

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var v:array[1..4] of integer;
  i:integer;
  max:integer;
begin
   randomize;
   for i:= 1 to 4 do
begin
   v[i]:=random(10);
   write(v[i], ' ');
end;
    writeln;
    max:=v[1];
    for i:= 1 to 4 do
    begin
    if max < v[i] then
    max:=abs(v[i]);
 end;
    write(max, ' ');

    readln;

end.

[Absent]

мне нужно чтобы с фунуцией

[bill]

type tdf=array of integer;// устанавливаешь длину массива + забиваешь все значения, df-массив, n- его размер
..
function max(df,n):integer;
h,i:integer;
begin
h:=abs(dff[1]);
for i:=1 to n do
if abs(a[i])>h then h:=abs(a[i]);
result:=h;
end;

[Absent]

Нужно чтобы в программе была функция, а потом нужно задать все значения, вызвать функцию, и получить результат на выходе.
Я вроде все сделал но вызвать не получилось

program chetireDBATPU;


uses
SysUtils;
type mass=array[1..100] of integer ;
var i,n,k :integer;
function NAV(y:mass):integer;
var i,n,k :integer;

begin
k:=0;
write('n=');
readln(n) ;


for i:=1 to n do
begin
if abs(y[i])>k then
k:=abs(y[i]);

end;

begin
Writeln('n=');
readln(n);
for i:=1 to n do
begin
writeln('y[',i,']=');
readln(y[i]);
end;
NAV(y:mass);
writeln('k=',k) ;
end ;
end;
end.

[_Dmitry]

Структурируйте код, в таком месиве трудно разобраться

type mass=array[1..100] of integer;
var
  i,n: integer;
  y: mass;

function NAV(n: integer; y: mass):integer;
var
  i,k :integer;
begin
  k:=abs(y[1]);
  for i:=2 to n do
    if abs(y[i])>k then k:=abs(y[i]);
  NAV:=k;
end;

begin
  Write('n='); readln(n);
  for i:=1 to n do
    begin
      write('y[',i,']='); readln(y[i]);
    end;
  writeln('max=',NAV(n,y));
  readln;
end.