Блок-схема, паскаль

[AndreYYY]

Пробовал через всякие проги - построить не лезет. Помогите пожалуйста построить:
Program File81;
uses crt;
var f1: file of real; f2: file of real; x: real; n: byte; A: array[1..100, 1..100] of real;
Procedure createfile (var f1: file of real);
var i, j, b: byte;
begin
assign(f1, 'file181.zzz');
rewrite(f1);
b:=1;
for i:=1 to n do
begin
for j:=1 to b do
a[i,j]:=random;
b:=b+1;
end;
for i:=1 to n do
for j:=1 to n do
write(f1, a[i,j]);
close(f1);
end;
Procedure showmematrix (var f1: file of real );
var i, j: byte; x: real;
begin
reset(f1);
write('Ваша нижнетреугольная матрица:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:1:3,' ');
end;
writeln;
writeln('Ваш исходный файл:');
while not eof(f1) do
begin
read(f1, x);
write(x:1:3, ' ');
end;
close(f1);
end;
Procedure getresultfile (f2: file of real);
var i, j: byte; x: real;
begin
assign(f2, 'file281.zzz');
rewrite(f2);
for i:=1 to n do
for j:=1 to n do
if (a[i,j]<>0) then
begin
x:=a[i,j];
write(f2,x);
end;
close(f2);
reset(f2);
writeln;
writeln;
writeln('Ваш конечный файл:');
while not eof(f2) do
begin
read(f2, x);
write(x:1:3,' ');
end;
close(f2);
end;
begin
write('Введите размерность матрицы N*N ');
read(n);
createfile(f1);
showmematrix(f1);
getresultfile(f2);
end.