Найти сумму n чисел и поделить их на n

Т. Е нужно найти среднее арифметическое.Program Avg; Uses Crt; var n: integer; rez,s,c: real; begin clrscr; s: =0; n: =0; write ('Введите числа конец ввода 0: '); repeat readln (c); s: =s+c; n: =n+1; until (c=0); rez: =s/n; writeln ('Сумма всех чисел: ',s: 5:5); writeln ('Среднее арифметическое: ',rez: 5:5); readkey; end.