В массиве А (15, 10) действительных чисел зайти сумму 3 и 7 строк. Определить какая из них больше.

uses Crt;Const   N = 15;   M = 10;Var   A:array[1..N,1..M] of real;   i,j:integer;   S3,S7:real;BeginRandomize;ClrScr;WriteLn('Исходный массив:');For i:= 1 to N do    Begin    For j:= 1 to M do        Begin        A[i,j]:=random*13;        Write(A[i,j]:6:3,'  ')        End;    WriteLn    End;S3:=0;S7:=0;For j:= 1 to M do    Begin    S3:=S3+A[3,j];    S7:=S7+A[7,j];    End;WriteLn('S3 = ',S3:0:3);WriteLn('S7 = ',S7:0:3);if S3 > S7 then WriteLn('S3 > S7')else if S3 < S7 then WriteLn('S3 < S7')     else WriteLn('S3 = S7');ReadLnEnd.