Самостоятельная, тож Pascal

var i, j, m, t, mini: byte;
mas: array [1..40, 1..40] of byte;
begin
write ('M, T = ');
readln (m, t);
mini:=1;
for i:=1 to m do
begin
mas[i, t+1]:=0;
for j:=1 to t do
begin
mas[i,j]:=random(10);
write (mas[i,j]:2);
mas[i, t+1]:=mas[i, t+1]+mas[i,j];
end;
writeln (mas[i, t+1]:10);
if mas[i, t+1] > mas[mini, t+1] then mini:=i;
end;
writeln ('Строка с минимальным значением суммы элементов = ', mini) ;
end.

32 62 80 48 51 18 28 82 36 41
71 13 86 84 82 87 70 39 21 76
60 11 73 39 57 16 93 21 29 22
47 98 54 40 60 60 97 18 27 79
summa 1 stroki = 478
summa 2 stroki = 629
summa 3 stroki = 421
summa 4 stroki = 580
stroka s min summoj 3 summa = 421
--------------
50 94 18 70 59 25 23 39 40 87
14 77 21 80 52 32 74 93 18 45
29 71 81 87 31 10 61 83 60 95
63 83 65 11 40 15 32 13 20 43
summa 1 stroki = 505
summa 2 stroki = 506
summa 3 stroki = 608
summa 4 stroki = 385
stroka s min summoj 4 summa = 385
--------------
41 23 82 11 45 59 94 11 80 92
40 10 52 87 46 51 84 59 52 84
49 94 89 79 76 83 11 64 14 83
90 20 95 13 98 23 23 48 68 14
summa 1 stroki = 538
summa 2 stroki = 565
summa 3 stroki = 642
summa 4 stroki = 492
stroka s min summoj 4 summa = 492
--------------
48 54 22 59 47 25 31 86 25 45
40 79 15 92 72 96 51 51 24 77
17 44 87 83 40 81 89 60 86 36
68 26 45 64 91 81 40 43 87 14
summa 1 stroki = 442
summa 2 stroki = 597
summa 3 stroki = 623
summa 4 stroki = 559
stroka s min summoj 1 summa = 442
--------------
86 48 63 29 42 41 28 39 32 42
39 80 57 19 97 13 88 86 40 82
12 43 17 71 98 72 28 93 93 24
79 40 78 19 68 74 94 40 27 58
summa 1 stroki = 450
summa 2 stroki = 601
summa 3 stroki = 551
summa 4 stroki = 577
stroka s min summoj 1 summa = 450
--------------
27 81 82 78 15 76 43 84 54 17
71 94 13 59 44 40 73 58 60 95
43 82 82 24 88 71 65 47 26 60
14 80 15 57 59 61 45 71 28 41
summa 1 stroki = 557
summa 2 stroki = 607
summa 3 stroki = 588
summa 4 stroki = 471
stroka s min summoj 4 summa = 471
--------------
69 28 90 84 82 95 45 44 42 79
98 93 21 91 36 82 71 18 53 61
65 67 34 60 67 81 56 26 99 26
27 18 35 39 38 26 56 82 41 43
summa 1 stroki = 658
summa 2 stroki = 624
summa 3 stroki = 581
summa 4 stroki = 405
stroka s min summoj 4 summa = 405
--------------
97 36 66 30 96 70 98 63 34 65
70 33 39 59 71 34 11 75 20 21
79 14 98 24 88 63 55 73 58 80
83 37 83 36 50 59 76 13 82 99
summa 1 stroki = 655
summa 2 stroki = 433
summa 3 stroki = 632
summa 4 stroki = 618
stroka s min summoj 2 summa = 433
--------------
58 28 48 89 80 92 29 75 60 45
89 73 16 96 55 52 81 78 29 38
38 69 83 92 71 80 18 15 36 83
71 60 77 94 80 81 94 25 63 25
summa 1 stroki = 604
summa 2 stroki = 607
summa 3 stroki = 585
summa 4 stroki = 670
stroka s min summoj 3 summa = 585
--------------
97 94 53 97 93 44 18 81 30 93
14 87 56 37 81 81 48 38 86 12
73 38 90 16 30 82 42 35 79 43
54 34 35 19 41 25 97 30 57 94
summa 1 stroki = 700
summa 2 stroki = 540
summa 3 stroki = 528
summa 4 stroki = 486
stroka s min summoj 4 summa = 486
--------------
33 39 90 54 58 24 91 38 73 99
44 81 22 39 88 84 38 41 57 76
91 27 92 19 47 27 11 36 94 14
96 65 78 73 29 84 89 78 43 23
summa 1 stroki = 599
summa 2 stroki = 570
summa 3 stroki = 458
summa 4 stroki = 658
stroka s min summoj 3 summa = 458
--------------
18 20 60 70 47 11 75 90 13 55
43 46 63 19 86 30 59 83 99 28
74 28 12 68 44 79 56 62 23 40
92 59 46 40 34 90 41 34 24 77
summa 1 stroki = 459
summa 2 stroki = 556
summa 3 stroki = 486
summa 4 stroki = 537
stroka s min summoj 1 summa = 459
--------------
27 76 30 77 12 36 67 38 26 76
26 46 66 87 26 73 32 74 30 81
65 21 74 25 38 19 62 42 65 26
99 77 46 53 39 25 26 65 62 90
summa 1 stroki = 465
summa 2 stroki = 541
summa 3 stroki = 437
summa 4 stroki = 582
stroka s min summoj 3 summa = 437
--------------
70 25 31 71 32 74 72 25 67 88
64 12 11 80 93 33 46 48 39 15
76 70 28 25 44 37 94 74 25 68
48 98 18 21 14 41 86 45 85 32
summa 1 stroki = 555
summa 2 stroki = 441
summa 3 stroki = 541
summa 4 stroki = 488
stroka s min summoj 2 summa = 441