Написать программу, по которой с использованием функции three определяется. есть ли в третей строке таблицы элементы. кратные трём — Pascal(Паскаль)

uses crt;
const n=5; m=6;
type mas=array [1..n, 1..m] of integer; 
var u: boolean; a: mas; i, j: byte;
function three(massiv: mas): boolean;
var l: byte; usl: boolean;
 begin
  l:=1;
  usl:=false;
  while (l<=m) and (usl=false) do
   begin
    if massiv [3, l] mod 3 = 0 then usl:=true;
    inc (l);
   end;
  three:=usl;
 end;
begin
 randomize;
 clrscr;
 writeln ('Ishodn. massiv: ');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     a[i, j]:=random (19)-9;
     write (a[i, j]:3);
    end;
   writeln;
  end;
 writeln;
 u:=three (a);
 if u=true then writeln ('V 3-i stroke est elementi kratnie 3-m')
 else writeln ('V 3-i stroke net elementov kratnih 3-m');
end.