Построить соответствующее логическое выражение

Var       a: array[1..7, 1..3] of integer;       s, i, j: integer; begin             for i : = 1 to 7 do               for j : = 1 to 3 do                       a[i, j] : = random(100);             for i : = 1 to 7 do       begin               s : = 0;               for j : = 1 to 3 do                       s : = s + a[i, j];                                     writeln('день - ', i, ', средняя температура = ', (s / 3): 2: 2, ' гр.');       end; end.

// freepascal 3.0.0 program string6; var i: integer; f: boolean; r: array[1..33] of widechar = ('а', 'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ь', 'ы', 'ъ', 'э', 'ю', 'я'); c: widechar; begin f : = false; readln(c); if isnumber(c) begin writeln('digit'); f : = true; end else for i : = 1 to 33 do if r[i] = c then begin writeln('rus'); f : = true; break; end; if not(f) then writeln('lat'); end.