Поиск большего из 4 чисел(pascal) с использованием модулей

[GaJIbI4]

Помогите пожалуйста. Моя программа находит наибольшее из четырех чисел, нужно в программу добавить модуль поиска наибольшего из двух чисел.

var Max,i:integer;
C:array[1..4] of integer;
begin
Writeln('Vvedite a,b,c,d');
Readln(c[1],c[2],c[3],c[4]);
Max:=-32678;
for i:=1 to 4 do
if c[i]> Max then Max:=C[i];
writeln('Max=',Max);
readln;
end.

[Александриус]

Решение_1(Процедура):
-Модуль:

unit Modul; //имя модуля
{интерфейсная часть}
interface
{процедуры и функции}
//процедура поиска большего среди двух чисел
Procedure Poisk(Var c1,c2:integer; var Res:integer);
{реализационная часть}
implementation
{процедура поиска большего среди двух чисел}
Procedure Poisk(Var c1,c2:integer; var Res:integer);
Begin
if c1>c2 then res:=c1 else res:=c2;
End;
end.

-Программа:

program abc;
uses Crt,Modul;
var c1,c2,res:integer;
begin
Writeln('Введите 1 и 2 число');
Readln(c1,c2);
Poisk(c1,c2,res);
writeln('Результат = ',res);
readln;
end.

Решение_2(Функция):
-Модуль:

unit Modul; //имя модуля
{интерфейсная часть}
interface
{процедуры и функции}
//процедура поиска большего среди двух чисел
Function Poisk(Var c1,c2:integer):Integer;
{реализационная часть}
implementation
{процедура поиска большего среди двух чисел}
Function Poisk(Var c1,c2:integer):Integer;
Begin
if c1>c2 then Poisk:=c1 else Poisk:=c2;
End;
end.

-Программа:

program abc;
uses Crt,Modul;
var c1,c2,res:integer;
begin
Writeln('Введите 1 и 2 число');
Readln(c1,c2);
res:=Poisk(c1,c2);
writeln('Результат = ',res);
readln;
end.

[GaJIbI4]

спасибо большое!