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

Program Сумма;
var
otvet:String;
sled:= true;
chislo:=0;
i,b, summa:integer;
Begin
Write('Сколько чисел вы хотите суммировать?');
Read(b);
for i:=1 to b do
Begin
Write('Введите трёхзначное число: ');
Read(chislo);
while (chislo <100) or (chislo >1000) do
Begin
Write('Число не трёхзначное, попробуйте ещё раз!');
Read(chislo);
End;
summa+=chislo;
End;
Write('Сумма равна ', summa);
End.