Строки в Паскале

[sunrise7]

помогите ,пожалуйста,составить программный код.

1.Задано произвольное слово. Определить, состоит ли оно из четного количества букв.

2.Найти в списке из 7 фамилий все фамилии, состоящие из 5 или 6 букв.

3.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы "А".

[Zer0]

1)

var s:string;
begin
readln (s);
if Even(Length(s)) then writeln ('Chet') else writeln ('Nechet');
end.

2)

var s,r:string; i:integer;
begin
r:='';
for i:=1 to 7 do begin
 readln(s);
 if (length(s)=5) or (length(s)=6) then r:=r+s+' ';
end;
writeln ('Familii iz 5 ili 6 bukv: ');
writeln(r);
end.