Вывод максимального значения из массива pascalabc.net

[Konstantin1706]

Добрый день, подскажите пожалуйста. У меня есть массив, мне необходимо в нем найти максимальное значение и вывести его в поле типа Field. Все вроде ничего, да при выведении максимального значения ругается "Нельзя преобразовать тип array [1..6] of integer к array of integer".

const
     n = 6;

type
    mas=array[1..n] of integer;

var
    a:mas;
    rez:Field;

...

Находим максимальное значение:

function imax(a:array of integer): integer;
begin
   Result:=0;
   Result:=a[1];
   for var i:=2 to n do
    if a[i]>Result then
      begin
          Result:=a[i];
      end;
end;

Выводим максимальное значение:

procedure emax;
begin
      rez.Text:='Максимальное элемент -> '+ imax(a); //ругается именно на а в imax(a)
end;

[BDA]

function imax(a:mas): integer;

[Konstantin1706]

Уже пробовал, выводит ошибку "Нет перегруженной подпрограммы с такими типами параметров":

rez.Text:='Максимальное элемент -> '+ imax(a);

[BDA]

Значит выше, где описан прототип функции, тоже исправьте.

[Konstantin1706]

Простите, вы наверно ответили на то сообщение, которое я попытался быстро исправить. Там где я описывал, что в программе имеется данная функция я исправил, на что мне компилятор вывел другую ошибку, которую я описал сообщением выше.

[Konstantin1706]

В поле типа IntegerField выводит(пусть немного не так как надо), а в Field отказывается.

[rUs_LAN]

может надо сначала претворить число в строку?

[Konstantin1706]

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

может надо сначала претворить число в строку?

имеете в виду с помощью IntToStr? Дописал:

function imax(a:mas): integer;
begin
   Result:=0;
   Result:=a[1];
   for var i:=2 to n do
    if a[i]>Result then
      begin
          Result:=a[i];
          s:=IntToStr(Result);
      end;
end;

procedure emax;
begin
      rez.Text:='Максимальное элемент -> '+ s;
end;

Запускается без ошибок, но в строковое поле не выводится само значение переменной s, а только "Максимальное элемент -> ".

[BDA]

Скорее, так:

function imax(a:mas): integer;
begin
   Result:=0;
   Result:=a[1];
   for var i:=2 to n do
    if a[i]>Result then
      begin
          Result:=a[i];
      end;
end;
...
procedure emax;
begin
      rez.Text:='Максимальное элемент -> '+ IntToStr(imax(a));
end;

Или:

function imax(a:mas): integer;
begin
   Result:=0;
   Result:=a[1];
   for var i:=2 to n do
    if a[i]>Result then
          Result:=a[i];
    s:=IntToStr(Result);
end;
...
procedure emax;
begin
      imax(a);
      rez.Text:='Максимальное элемент -> '+ s;
end;

Или даже так:

function imax(a:mas): string;
var
r:integer;
begin
   r:=a[1];
   for var i:=2 to n do
    if a[i]>r then
        r:=a[i];
    Result:=IntToStr(r);
end;
...
procedure emax;
begin
      rez.Text:='Максимальное элемент -> '+ imax(a);
end;

[Konstantin1706]

BDA, спасибо большое, оба примера работают.