Создать двумерный массив из 5 строк, 3 столбцов. Вывести на экран числа кратные 8 оканчивающиеся на 4. Pascal ABC

const  m=5;  n=3;var  i,j,k:integer;  a:array[1..m,1..n] of integer;begin  Randomize;  Writeln('Исходный массив');  k:=0;  for i:=1 to m do begin    for j:=1 to n do begin      a[i,j]:=Random(999)+1;      Write(a[i,j]:4);      if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);      end;    Writeln  end;  if k>0 then begin    Writeln('Искомые элементы');    for i:=1 to m do      for j:=1 to n do        if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')    end  else    Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')end.Пример работы программыИсходный массив 424 672 826 546 587 413 507 211 884 252 781 518 750 656 359Искомые элементы424