const
 n = 20;

var
 i, j, len: integer;
 ch: char;
 s: array[1 .. n] of string;

 chet, nechet: array['a' .. 'z'] of byte;
 { здесь будет храниться частота символов в четных/нечетных строках }

begin
 for i := 1 to n do
   begin
     s[i] := '';
     len := random(255) + 1; { генерируем длину строки }
     for j := 1 to len do
       { генерируем содержимое строки }
       s[i] := s[i] + chr(ord('a') + random(26) + 1);
   end;

 { подсчитываем повторяемость символов... }
 for i := 1 to n do
   for j := 1 to length(s[i]) do
     begin
       if odd(i) then
         inc(nechet[ s[i][j] ]) { ... в нечетных строках }
       else inc(chet[ s[i][j] ]) { ... в четных строках }
     end;

 writeln('в четных строках чаще встречаются символы:');
 for ch := 'a' to 'z' do
   if chet[ch] > nechet[ch] then write(ch, ' ');
end.