Дан массив из n элементов целого типа. Определить сумму первых шести элементов массива.(Написать программу на Паскале)

Var
  ar: array of integer;
   i, n, s: integer;
 begin
  s := 0;
   readln(n);
   setlength(ar, n);
   for i := 0 to n - 1 do read(ar[i]);
  if(n gt; 5) then
    for i := 0 to 5 do s := s + ar[i]
  else for i := 0 to n - 1 do s := s + ar[i];
  write(s);
 end.