Произведение максимальных элементов массивов A и CПомогите, это Паскаль) и…

Uses crt; const n=10{количество элементов массива а}; m=15{количество элементов массива с}; var a: array[1… n] of integer; c: array[1… m] of integer; i,j,maxa,maxc,pr: integer; beginrandomize; for i: =1 to n dobegina[i]: =random (100); write (a[i]: 4); end; writeln; for j: =1 to m dobeginc[j]: =random (100); write (c[j]: 4); end; writeln; maxa: =0; maxc: =0; for i: =1 to n doif (a[i]>maxa) then maxa: =a[i]{нашли максимальный элемент массива а}; for j: =1 to m doif (c[j]>maxc) then maxc: =c[j]{нашли максимальный элемент массива с}; pr: =1; writeln (maxa); writeln (maxc); pr: =maxa*maxc; writeln (pr); end.