Составить программу нахождения большего из 4 чисел a, b, c, d с использованием функции поиска большего из двух — Pascal(Паскаль)

program bolshe;
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:=0;
     for i:=1 to 4 do
          if c[i]> Max then Max:=C[i];
     writeln('Max=',Max);
     readln;
END.