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

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