Светлые головы составить ребусы из слов: ветер, воробей, ворона, дорога, до свидания

Слово  ветер - буква  е в ней буква т. дальше нота и скрипичный  ключ. слово  воробей  - в букве о буква р,и  после запятая внизу.спанчбоб  и две запятых внизу.потом наривован возд.змей. слово  ворона  - в букве о  буква р, запятая внизу картинка зонт  запятая  вверху,и  буква  а. слово  дорога  -  буква  д,  буква  о,  дальше  картинка  рог  и  буква  а. слово до свидания - две  запятых  в  низу  перевёрнутая1,буква с,картинка вода и 2=о, перевёрнутая 1 и две запятых вверху.  

Var       i, j, n, m: integer;       s, t: real;       a: array[1..100, 1..100] of integer; begin       randomize;             readln(n, m);             for i : = 1 to n do       begin               for j : = 1 to m do               begin                       a[i, j] : = random(100);                       s : = s + a[i, j];                       write(a[i, j]: 3, ' ')               end;               writeln()       end;             s : = s / n / m;             writeln();       for j : = 1 to m do       begin               t : = 0;               for i : = 1 to n do                       t : = t + a[i, j];                                     if t / n < s then                       write(j, ', ')       end end.

Var     i,j,n,m: integer;     s: real;     a: array[0..1000,1..1000] of real; begin readln(n,m); randomize; s: =0; for i: =1 to n do   begin     for j: =1 to m do           begin           a[i,j]: =random(10);           s: =s+a[i,j];           write(a[i,j],' ')           end;       writeln   end; s: =s/n/m; writeln; for j: =1 to m do   begin      for i: =1 to n do  a[0,j]: =a[0,j]+a[i,j];   a[0,j]: =a[0,j]/n;   if a[0,j]< s then write(j,' ')   end end.