Помогите написать программу на Паскале. В целочисленной матрице размером 10x10…

varar: array[1… 10,1… 10] of integer; i,j,max,count: integer; begincount: =1; max: =0; randomize; for i: =1 to 10 do beginfor j: =1 to 10 do beginar[i,j]: =random (10)+1; if (j mod 10=0) then writeln (ar[i,j]) else write (ar[i,j],'); if (ar[i,j] > max) then max: =ar[i,j]; end; end; for i: =1 to 10 do beginfor i: =1 to 10 do beginfor j: =1 to 10 do beginif (ar[i,j]=max) then begin writeln ('Индекс ',count,' элемента=',i,',j); inc (count); end; end; end; end.