Чем обусловлено содержание психической деятельности?

1)
var
  i: integer;
  s: array [1..7] of string;
begin
  writeln('Введите 7 фамилий: ');
  for i := 1 to 7 do readln(s[i]);
  for i := 1 to 7 do
    if (s[i][1] = 'А') and (length(s[i]) = 6) then writeln('Подходящие фамилии: ', s[i])
end.