Работа с массивами (pascal)

[МасловЕвгений]

помогите пожалуйста написать код программы для вот такой задачи:
Определение длины самой длинной последовательности из расположенных подряд в одномерном логическом массиве значений TRUE и вывод найденной длины на экран. Длина массива и значения TRUE и FALSE вводятся с клавиатуры в форме F (для FALSE) и T (TRUE).

[zmey31313]

program zadacha;
const
  n = 10;
var
  a : array[1..n] of integer;
  i, d : integer;
  bool : string;
  c, b : integer;
begin
 for i := 1 to n do
  begin
    d := d + 1;
    write('a[', d, ']:= ');
    readln(bool);
    If bool = 't' then
     begin
       c := c + 1;
       If c > b then b := c;
     end
    else
     c := 0;
  end;
  writeln('Ответ Т повторяется в подряд: ', b, ' раз(а).');
  readln();
end.

[МасловЕвгений]

благодарю.