Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. паскаль,

Var i,n,s,m:integer;
begin
write('Введите количество чисел: ');readln(n);
for i:=1 to n do begin
write('[Сумма: ',s,'] Введите ',i,'-е число: ');
readln(m);
s:=s+m;
end;
write('Сумма всех введённых чисел равна: ',s);
end.