Ввести с клавиатуры строку символов.вывести отдельной строкой строчные латинские буквы и подсчитать их количество.

Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for i:=1 to b do
if (a[i] >= 'a') and (a[i] <= 'z') then begin
write (a[i]); c := c + 1; end;
writeln (c);
end.

Надеюсь, этот вариант сработает.