Определить, сколько букв в самой длинной фамилии списка.

[lunnamedl]

1. Определить, сколько букв в самой длинной фамилии списка.
2. Задан список из десяти городов. Поменять местами названия двух городов, названия которых оканчиваются сочетанием букв «град».
3. Напишите программу выясняющую на гласную или согласную букву оканчивается слово Х.

[Macklay]

А в первом задании список представлен чем, уточните пожалуйста...

[DM_bite]

3)

program xdd;
var S: string;
k: integer;
begin
ReadLn(s);
k:= length(S);
if s[k] in ['a','o','y','u','e','i'] then WriteLn('Glasnaya');
if s[k] in ['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'] then WriteLn('Soglasnaya');
ReadLn;
end.

А в первом задании список представлен чем, уточните пожалуйста...

А мне, к примеру, куда интересней другой вопрос:"Учитывать только буквы или другие символы тоже?То есть найти просто длину слова?"

1) Если решать прямо в лоб и со всеми символами.

program xdd;
const n=10;
var a:array [1..n] of string;
i,max: integer;
begin
max:= length(a[1]);
for i:= 1 to n do
 begin
 ReadLn(a[i]);
 if max<length(a[i]) then
 begin
 max:=length(a[i]);
 end;
 end;
 WriteLn(max);
 ReadLn;
 end.

[NSvirus]

DM_bite, а если я в вашей программе введу знак минус? Получу-согласная?? Сделайте "проверку на дурака"..

[DM_bite]

DM_bite, а если я в вашей программе введу знак минус? Получу-согласная?? Сделайте "проверку на дурака"..

Я в курсе, просто кинул предварительное решение.Сейчас сделаю.