паскаль. помогите. в заданной строке подсчитать отдельно количество символов 'a' и 'b'

Я не помню Паскаль.
На С это будет выглядеть примерно так:
a=0; b=0; i=0;
while(str != '\n')
{
if(str == "a") a++;
if(str == "b") b++;
i++;
}