Сформировать матрицу M 6*6 вещественного типа

uses crt;
const n=6;
var m:array[1..n,1..n] of real;
    f:array[1..n*(n+1)div 2]of real;{максимальная длина масива}
    i,j,k:byte;
begin
clrscr;
randomize;
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        m[i,j]:=3*random;
        write(m[i,j]:5:2);
      end;
    writeln;
  end;
k:=0;
for i:=1 to n do
for j:=1 to n do
if (j>=i) and(m[i,j]<1.2) then {если выше главной диагонали и на ней, и меньше 1,2}
  begin
    k:=k+1;{считаем}
    f[k]:=m[i,j];{заносим в массив}
  end;
writeln('Poluchennaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        m[i,j]:=m[i,j]/k;{делим элементы матрицы на длину массива}
        write(m[i,j]:5:2);
      end;
    writeln;
  end;
writeln('Massiv F:');
for i:=1 to k do
write(f[i]:6:2);
writeln;
writeln('Dlina massiva=',k);
readln
end.

uses crt;
const n=6;
type
matr=array[1..n,1..n] of real;
mas= array[1..n*(n+1)div 2]of real;
procedure VvodMatr(var mt:matr);
var i,j:byte;
begin
writeln('Ishodnaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        mt[i,j]:=3*random;
        write(mt[i,j]:5:2);
      end;
    writeln;
  end;
end;
procedure FormMas(mt:matr;var ms:mas;var k:byte);
var i,j:byte;
begin
k:=0;
for i:=1 to n do
for j:=1 to n do
if (j>=i) and(mt[i,j]<1.2) then
  begin
    k:=k+1;
    ms[k]:=mt[i,j];
  end;
writeln('Massiv:');
for i:=1 to k do
write(ms[i]:6:2);
writeln;
writeln('Dlina massiva=',k);
end;
procedure NewMatr(k:byte;var mt:matr);
var i,j:byte;
begin
writeln('Poluchennaya matrica:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        mt[i,j]:=mt[i,j]/k;
        write(mt[i,j]:5:2);
      end;
    writeln;
  end;
end;
var m:matr;
    f:mas;
    dm:byte;
begin
clrscr;
randomize;
VvodMatr(m);
FormMas(m,f,dm);
NewMatr(dm,m);
readln
end.