Дан файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы (по строкам). Создать новый файл, содержащий все

[santafer]

Дан файл вещественных чисел, содержащий ненулевую часть нижнетреугольной матрицы (по строкам). Создать новый файл, содержащий все элементы данной матрицы (по строкам).

Помогите пожалуйста, переделать код чтобы файлы открывались через OpenDialog !!!

uses crt;
const nmax=20;
var f,g:file of real;
    n,i,j:integer;
    x,y:real;
begin
clrscr;
randomize;
assign(f,'matr1');
rewrite(f);
assign(g,'matr2');
rewrite(g);
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
{пишем нижнюю треугольную матрицу}
for i:=1 to n do
for j:=1 to i do
 begin
  x:=10*random;
  write(f,x);
 end;
{прочитаем}
reset(f);
writeln('Исходный файл:');
i:=1;{номер строки}
j:=0;{номер столбца}
while not eof(f) do
 begin
  j:=j+1;{считаем}
  if j<=i then{если не перешли главную диагональ}
   begin
    read(f,x); {читаем элемент}
    write(x:0:2,' ');{выводим в строку}
    write(g,x);{пишем в новый файл}
   end
  else{если перешли}
   begin
    while j<=n do {до конца строки}
     begin
      y:=0;
      write(g,y);{пишем в новый файл ноли}
      j:=j+1;
     end;
    i:=i+1;{новая строка}
    j:=0; {обнулим счетчик в строке}
    writeln;
   end;
 end;
writeln;
close(f);{закроем 1 файл}
reset(g); {прочитаем новый с выводом по строкам}
writeln('Новый файл:');
j:=0;
while not eof(g) do
 begin
  read(g,x);
  write(x:0:2,' ');
  j:=j+1;
  if j=n then
   begin
    j:=0;
    writeln;
   end;
 end;
close(g);
readln
end.