Найти номер строки и номер столбца максимального элемента матрицы, в delphi

Var  a,i,j,b,p,p1,max: longint; m: array[0..501,1..500] of longint; begin read(a,b); for i: =1 to a do for j: =1 to b do read(m[i,j]); p: =1; p1: =1; max: =m[1,1]; for i: =1 to a do for j: =1 to b do if m[i,j]> max then begin p: =i; p1: =j; max: =m[i,j]; end; writeln(p,' ',p1); end.

Var  a: array[1..1000] of longint;   n,i,k: longint; begin   readln(n);   for i: =1 to n do read(a[i]);   if odd(a[1]) then k: =1 else k: =2;   for i: =2 to n do   begin   if (odd(a[i]))and(k=1) then   begin     writeln('no');     halt;   end;   if (not odd(a[i]))and(k=2) then   begin     writeln('no');     halt;   end;   if k=1 then k: =2 else k: =1;   end;   writeln('yes'); end.

Var a: array[1..5] of integer; j,l,i,k,n: integer; begin readln(n); while not(n=0) do begin k: =k+1; a[k]: =n mod 10; n: =n div 10; end; for i: =1 to min(3,k) do begin n: =a[i]; l: =0;     for j: =1 to k do     if n=a[j] then     l: =l+1;   if l> =3 then   begin   writeln('в записи есть три одинаковых чисел');   l: =20;   break;   end; end;   if not(l=20) then   writeln('в записи нет трех одинаковых чисел'); end.