Составить программу которая вводит 7 оценок с клавиатуры и выдает средний

program HelloWorld;

var n: double;

var i,c,summ: integer;

begin

    for i:=1 to 7 do

    begin

        writeln('Введите оценку:');

        readln(c);

        summ := summ + c;

    end;

     writeln('Введите оценку:');

    writeln(summ/c:15:2);

 end.