Để tìm số lớn nhất trong mảng ta thực hiện các bước như sau

Khởi tạo giá trị max=a[0]
Duyệt lần lượt các phần tử của mảng. Nếu phần tử nào có giá trị lớn max thì ta tiến hành gán giá trị đó cho max.
Sau khi duyệt hết các phần tử của mảng thì ta tiến hành trả về giá trị của max
Hàm max sẽ có kiểu trả về là kiểu int (hoặc kiểu long cũng được ).
Cần có hai tham số truyền vào là: tên mảng và số lượng phần tử.

Phương trình dưới

Program FNG;
Uses crt;
Var A: array[1..5] of longint;
    i,max: longint;
Begin
        Clrscr;
        For i:=1 to 5 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        max:=A[1];
        For i:=2 to 5 do If A[i]>max then max:=A[i];
        Write(max);
        Readln
End.