Составьте программу нахождения суммы всех положительных двузначных чисел . Пожалуйста помогите

var i,sum,n,k: Integer;beginsum:=0;Writeln('Введите кол-во чисел');readln(n);dec(n);for i:=0 to n dobeginwriteln('Введите ',i+1,' число: ');readln(k);if k>0 then beginif (k>9) and (k<100) then sum:=sum+k;end;end;writeln('Ответ: ',sum);end.