Даны натуральные числа от 35 до 150,найти сумму и колличество тех из них которые при делении на 8,дают остаток 1 или 2

Var s,k,i:integer;
begin
k:=0;
s:=0;
for i:=35 to 150 do begin
if (i mod 8 = 1) or (i mod 8 = 2) then begin
s+=i;
k+=1;
end;
end;
writeln(Количество - ,k);
writeln(Сумма - ,s);
end.