Вывести на экран элементы массива, кратные 5, и их индексы

for i:=1 to 5 do
  for j:=1 to 3 do
    if a[i,j] mod 5 = 0 then
      write('a[',i,',',j,']',' ');

program xxx;
uses crt;
var
mas:array[1..5,1..3] of integer;
s,i,j,n,m:integer;
begin
clrscr;
writeln('vvedite kolicestvo strok');
readln(n);
writeln('vvedite kolihestvo stolbcov');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
writeln('vvedite ' , i , ', ' , j , ' element');
readln (mas[i,j]);
end;
end;
writeln('vvedenni massiv');
for i:=1 to n do
begin
for i:=1 to 5 do
  for j:=1 to 3 do
    if mas[i,j] mod 5 = 0 then
      write('mas[',i,',',j,']',' ');
readkey
end;
end.

program xxx;
uses crt;
const n=5;
      m=3;
var
mas:array[1..n,1..m] of integer;
s,i,j:integer;
begin
clrscr;
writeln('Vvedite ',n*m,'elementov massiva:');
for i:=1 to n do
for j:=1 to m do
  begin
   write('a[',i,',',j,']=');
   readln (mas[i,j]);
  end;
clrscr;
writeln('vvedenni massiv');
for i:=1 to n do
 begin
  for j:=1 to 3 do
  write(mas[i,j]:3,' ');
  writeln;
 end;
writeln('Elementy, kratnye 3:');
for i:=1 to n do
for j:=1 to m do
if mas[i,j] mod 5 = 0 then
write('[',i,',',j,']=',mas[i,j],'  ');
readkey
end.