Напишите программу на Паскале

var a: array [1… 10] of longint; i,j,max,ans: longint; begin for i: =1 to 10 do begin max: =-maxlongint; for j: =1 to 10 do begin read (a[i]); if a[i]>max then max: =a[i]; end; ans: =ans+max; writeln; end; writeln (ans); end. И этот массив не квадратный. Такие массивы называют двумерными массивами.