Ввести с клавиатуры последовательность из N частей. Отыскать сумму положительных частей,

program zz1;
var a, b, n, i, m:integer; // задаем переменные целого типа
begin
write( введите n ); // вводим с клавиатуры количество чисел в последовательности
read(n);
for i:=1 to n do // организуем цикл на n повторений 
begin
read(a); // вводим очередное число последовательности
if a lt; 2 then begin m:=m + a; b:=b + 1; end; // проверяем, если число не превосходит двух, то прибавляем его к сумме и считаем его
end;
write( сумма отысканных чисел = , m, их количество = , b); // выводим ответ
end.