Матрица 5х11, сделать присвоение 3ей строке(ПАСКАЛЬ)

Type
TRow=Array[1..11]or real;
TMatrix=Array[1..5]of TRow;
Var
Row:TRow;
Matrix:TMatrix;
Begin
//------
Matrix[3][4]:=random(10);
Row:=Matrix[3];
//------
end;
//------
это тебе нужно?

оно вообще ничего не выводит!!!

вот точное задание!!
1) Генерация целой матрицы размером 5х11, случайными числами в диапазоне 15-30
2)распечатать по строкам
3) выделить 3ю строку в матрице(присвоить 3ей строки одномерному массиву)
4) распечать полученный результат
5) найти максимальные елементы в еденичной строке
6) распечатать

КОСФИЗ(kosfiz) решил задачу! За что ему отдельный респект и огромное спасибо!!!
uses crt;
const n=5;
m=11;
var matrix:array[1..n,1..m]of word;
newmatrix:array[1..m]of word;
max,i,j,k:word;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
matrix[i,j]:=15+random(16);
for i:=1 to n do
begin
for j:=1 to m do
write(' ',matrix[i,j]);
writeln;
end;
writeln;
for j:=1 to m do
newmatrix[j]:=matrix[3,j];
for j:=1 to m do
write(' ',newmatrix[j]);
writeln;writeln;
max:=matrix[1,1];
for i:=1 to n do
for j:=1 to m do
if max<matrix[i,j] then max:=matrix[i,j];
writeln(' max in matrix:=',max);
max:=newmatrix[1];
for j:=2 to m do
if max<newmatrix[j] then max:=newmatrix[j];
writeln(' max in newmatrix:=',max);
readln;
end.