а здесь есть заядлые пограммисты, которые хотят помочь мне сделать лабу по программированию, очень наддо но не успеваю ((

Код такой
program laba23;

const
n = 5;

type
TMatrix = array [1..n, 1..n] of integer;

procedure FillMatrix (var a : TMatrix; n : integer);
var
i, j : integer;
begin
Randomize;
for i := 1 to n do
for j := 1 to n do
a [i, j] := Random (10);
end;

procedure PrintMatrix (a : TMatrix; n : integer);
var
i, j : integer;
begin
for i := 1 to n do begin
for j := 1 to n do begin
write (a [i, j], ' ');
end;
writeln;
end;
end;

function GetRowSum (a : TMatrix; n, row : integer) : integer;
var
j, sum : integer;
begin
sum := 0;
for j := 1 to n do
sum := sum + a [row, j];
GetRowSum := sum;
end;

procedure PrintRow (a : TMatrix; n, row : integer);
var
j : integer;
begin
for j := 1 to n do
write (a [row, j], ' ');
writeln;
end;

var
a : TMatrix;
i, min_sum, max_sum, min_index, max_index, t : integer;

begin
FillMatrix (a, n);
PrintMatrix (a, n);
min_sum := a [1, 1];
max_sum := 0;
min_index := 0;
max_index := 0;
for i := 1 to n do begin
t := GetRowSum (a, n, i);
if i = 1 then begin
min_sum := t;
max_sum := t;
min_index := i;
max_index := i
end else begin
if t > max_sum then begin
max_sum := t;
max_index := i;
end;
if t < min_sum then begin
min_sum := t;
min_index := i;
end;
end;
end;
writeln ('Строка с минимальной суммой элементов, номер ', min_index, ', сумма ', min_sum);
PrintRow (a, n, min_index);
writeln ('Строка с максимальной суммой элементов, номер ', max_index, ', сумма ', max_sum);
PrintRow (a, n, max_index);
end.

Ты напиши на коком языке написаь надо, и что за зодание?

А задание?