Помогите с задачей, задача на строки Опции

[Точьичка]

Вот текст задачи:

Дана строка символов. Определить количество слов, начиная с буквы "а", вывести на печать самое длинное слово, начинающееся с буквы "а"

помогите пожалуйста

Сообщение отредактировано: Точьичка - 25.11.2007 20:54

[Точьичка]

пытылысь так:

Program Lab;
uses crt;
var s:array[1..200] of char;
i,q:integer;

BEGIN
clrscr;
readln(s);
q:=0;
For i:=1 to s do

    IF s[i]=#32 AND s[i+1]=#97 THEN
    q:=q+1;

writeln(q);
readkey;
end.

он останавливает курсор на строке readln(s) и пишет что Cannot Read or Write variables of this type

тогда попробовала так:

Program Lab;
uses crt;
var s:string;
i,q:integer;

BEGIN
clrscr;
readln(s);
q:=0;
For i:=1 to length(s) do

    IF s[i]=#32 AND s[i+1]=#97 THEN
    q:=q+1;

writeln(q);
readkey;
end.

Теперь он останавливает курсор на строке s[i+1]=#97 и пишет ошибку 41:Operand types do not match operator

Сообщение отредактировано: Точьичка - 26.11.2007 4:12