Паскаль турбо. Составить таблицу, заполняющую таблицу из 20 эл-ов нечетными двузначными числами и определяющую, сколько

const n=4; m=5;var a:array[1..n,1..m] of integer;i,j,k:integer;beginRandomize;writeln(\'Исходный массив:\');for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(90)+10; if a[i,j] mod 2 = 0 then a[i,j]:=a[i,j]+1; write(a[i,j]:4); end; writeln; end;k:=0;for i:=1 to n do for j:=1 to m do if (a[i,j] div 10 + a[i,j] mod 10) = 7 then k:=k+1;writeln(\'k = \',k);end.Пример:Исходный массив: 41 31 85 25 11 71 29 55 43 79 87 67 23 97 27 55 55 25 69 35k = 3