Определите среднее арифметическое элементов кратных 3, но не кратных 5 для каждой строки матрицы

uses crt;
const n=31;
var a:array[1..n] of integer;
    i,max:integer;
begin
clrscr;
for i:=1 to n do
 begin
  write('Введите температуру в ',i,' день декабря =');
  readln(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
begin
write(a[i],' ');
end;
writeln;
 
max:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
 
for i:=1 to n do
begin
if a[i]=max then writeln('Наибольшая температура в ',i,' день');
end;
 
readln;
end.

uses crt;
var
a:array[1..100,1..100] of integer;
s,k:integer;
sa:real;
i,j,n,m:byte;
 
begin
clrscr;
write('Введите количество строк матрицы n=');
readln(n);
write('Введите количество столбцов матрицы m=');
readln(m);
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20);
write(a[i,j]:3);
end;
writeln;
end;
 
for i:=1 to n do
begin
s:=0;
k:=0;
for j:=1 to m do
begin
if (a[i,j] mod 3=0) and (a[i,j] mod 5<>0) then
                                              begin
                                              s:=s+a[i,j];
                                              inc(k);
                                              end;
end;
sa:=s/k;
writeln('Cреднее арифметическое элементов кратных 3, но не кратных 5 для ',i,' строки =',sa:3:2);
end;
 
readln;
end.