помогите решить задачи в delphi пожалуйста))

program N72168327;
{$APPTYPE CONSOLE}
const n = 5;
var A:array[ 1 .. n, 1 .. n ] of real;
B:array[ 1 .. n ] of byte;
i, j:byte;
begin
randomize;
writeln('Дана матрица A:');
for i := 1 to n do
begin
B[ i ] := 1;
for j := 1 to n do
begin
A[ i, j ] := random * 20 - 5;
write(A[ i, j ]:8:2);
if A[ i, j ] < 0 then
B[ i ] := 0
end;
writeln
end;
writeln(#13#10'Построен вектор B:');
for i := 1 to n do
write(B[ i ]:3);
readln
end.

program N72168327_2;
{$APPTYPE CONSOLE}
var n, m, i, j:byte;
A:array of array of real;
Y:array of real;
begin
randomize;
n := random(9) + 2;
m := random(9) + 2;
setlength(A, n, m);
setlength(Y, n);
writeln('Дана матрица A(', n, 'x', m, '):');
for i := 0 to n - 1 do
begin
for j := 0 to m - 1 do
begin
A[ i, j ] := random * 100 - 50;
write(A[ i, j ]:7:2);
if (j = 0) or (A[ i, j ] > Y[ i ]) then
Y[ i ] := A[ i, j ]
end;
writeln
end;
writeln('Сформирован массив Y(', n, '):');
for i := 0 to n - 1 do
write(Y[ i ]:7:2);
readln;
finalize(A);
finalize(Y)
end.

Пятнадцать.