1. Вводится 10 чисел. Найти сумму положительных двузначных чисел. 2. Вводится текст. Конец ввода точка. Найти количество букв "Г" и "г". Помогите решить задачи в паскале

var a,s:integer;begins:=0;writeln('Введите числа');repeatreadln(a);if (a>9)and(a<99) thens:=s+a;until a=0;writeln(s);end.