[Pascal] Объясните мне, в чем ошибка.

[Маразматик]

// (c) Kondraev Dmitry, 2014
// задача 10-11.1.1
// task 10-11.1.1
type
    number=1..1000;// ограничение на количество элементов
    arr=array[1..1000] of integer;
function maxim(a:arr;n:number):integer;
    var i:number;
    begin
        result:=0;
        for i:=1 to n do
            if a[i]>result 
                then result:=a[i]
    end;
function minim(a:arr;n:number):integer;
    var i:number;
    begin
        result:=2147483647;
        for i:=1 to n do
            if a[i]<result then result:=a[i]
    end;
function sumel(a:arr;n:number):integer;
    var i:number;
    begin
        result:=0;
        for i:=1 to n do
            result:=result+a[i]
    end;
function multpl(a:arr;n:number):integer;
    var i:number;
    begin
        result:=1;
        for i:=1 to n do
            if a[i]>0 then result:=result*a[i]
    end;
function summax(a:arr;n:number):integer;
    var i,j:number;
        max:integer;
    begin
        max:=0;
        result:=0;
        for i:=1 to n do
            begin
                if a[i]>result 
                    then begin
                        result:=a[i];
                        j:=i
                    end;
            end;
        for i:=1 to n do
            if i<>j
                then if a[i]>max then max:=a[i];
        result:=result+max
    end;
function nuplus(a:arr;n:number):integer;
    var i:number;
    begin
        result:=0;
        for i:=1 to n do
            if a[i]>0 then result:=result+1
    end;
function sredplus(a:arr;n:number):real;
    var i:number;
    begin   
        for i:=1 to n do
            if a[i]>0 then result:=result+a[i];
        result:=result/n
    end;
var
    a:array[1..1000] of integer;
    f,fo:text;
    n,i:number;
begin
    // input
    assign(f,'task1011.in');
    reset(f);
    readln(f,n);
    for i:=1 to n do
        read(f,a[i]);
    close(f);
    // analis
    // output
    assign(fo,'task1011.out');
    rewrite(fo);
    writeln(fo,'Maximum    : ',maxim(a,n):10);// Теперь ошибка здесь. Нельзя преобразовать тип array [1..1000] of integer к array [1..1000] of integer
    writeln(fo,'Minimum    : ',minim(a,n):10);
    writeln(fo,'Sum        : ',sumel(a,n):10);
    writeln(fo,'Multiple   : ',multpl(a,n):10);
    writeln(fo,'Sum of max : ',summax(a,n):10);
    writeln(fo,'Number of +: ',nuplus(a,n):10);
    writeln(fo,'Mid + el   : ',sredplus(a,n):10:5);
    close(fo);
    exec('task1011.out')
end.

[BDA]

Не тип integer к integer, а тип "function(a: arr;n: number): integer" к integer.
Нужно писать так:

function maxim(a: arr; n: number): integer;
var
    i, res: number;
begin
    res := 0;
    for i := 1 to n do
        if a[i] > res then res := a[i];
    maxim := res;
end;

[Аватар]

a[i]>maxim

Это рекурсивный вызов функции. В делфи на подобное даст что-то типа не достаточно фактических параметров

function maxim(a:arr;n:number):integer;
    var i,k:number;
    begin
        k:=0;
        for i:=1 to n do
            if a[i]>k then k:=a[i];
        maxim:=k;
    end;

ADD

BDA, хоть переменные по разному обозвали

[Маразматик]

Новая ошибка. Смотри в коде)

[Аватар]

Сообщение от Маразматик

Новая ошибка. Смотри в коде)

Фу ты, хоть бы за первое спаcибо сказал. Или считаешь, что тебе все обязаны?

[Маразматик]

Прости. Я тебе благодарен. Не хочу тебя ни коим образом обидеть.

[Маразматик]

Спасибо, а как исправить следующую ошибку?

[BDA]

Объявить массив "a" типа arr, а не array[1..1000] of integer.
Аватар, непорядок, требуется продолжение синхронизации (чтобы совпадение было с точностью до пробела)

[Маразматик]

Спасибо )