Помогите, пожалуйста, решить задачи на языке программирования в Turbo Pascal. 1)…

var a: array [1… 100,1… 100] of integer; i,j,max,n,m: integer; Begin read (n,m); for i: =1 to n do for j: =1 to m do begin read (a[i,j]); if (i=1) and (j=1) then max=a[i,j]; if (j>i) and (a[i,j]>max) then begin max: =a[i,j]; end; end; writeln (max); End.