Помощь в составление программы

решение на Turbo Pascal 7.0 (Pascal ABC = shift+F9)

uses crt;
var i, j, k, n, min: integer;
pro: longInt;
a: array [1..100, 1..100] of integer;
begin
clrscr;
write (' Введите размерность матрицы N = ');
readln (n);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random (50);
write (a[i,j]:4);
end;
writeln;
end;
writeln;
min:=a[n,n];
for i:=1 to n do
begin
for j:=1 to n do
if (j >=n-i+2) then
begin
textcolor (green);
write (a[i,j]:4);
if a[i,j]<min then min:=a[i,j];
end
else
begin
textcolor (white);
write (a[i,j]:4);
end;
writeln
end;
writeln ('minimum ниже побочной диагнали = ', min);
pro:=1;
for j:=1 to n do
if a[n,j] <> 0 then pro:=pro*a[n,j]
else pro:=pro;
writeln ('произведение ненулевых элементов последней строки = ', pro);
end.

вот создание массива, остальное попробуй сама, не получится - пиши
program massiv;
uses crt;
type matr= array[1..100,1..100] of integer;
procedure vvod(var c:matr; n,m:integer); //---------------------------------
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
c[i,j]:=random(101);
end; //----------------------------------------------------
procedure vivod( c:matr; n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do
write(c[i,j]:3);
writeln; end;
end; //-------------------------------------------------
var
i,j,n,m:integer;
a:matr;
BEGIN
randomize;
clrscr;
writeln('ðåøåíèå çàäà÷è íà ìàññèâû ');
writeln('---------------------------');
writeln;
write('Vvesti N and M: ');
readln(n,m);
writeln('Massiv A: ');
{ for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(101);
write(a[i,j]:3);
end;
writeln; end; }
vvod(a,n,m);
vivod(a,n,m);
end.