Открытие текстового файла для редактирования

Function ReadFileName(var FN:string):string;
begin
  writeln('Введите имя файла:');
  readln(FN);
  while FileExists(FN) do
  begin
    writeln('Файл с таким именем уже существует');
    writeln('Введите новое имя исходного файла');
    readln(FN);
  end;
end;
 
Procedure WriteToFile(var FK:file of matrici;  FN:string);
var i,j,n,yes:integer; matrici1:matrici;
begin
  Assign(FK,FN);
  Rewrite(FK);
  writeln('Введите количество строк и столбцов');
  writeln('(не больше 10');
 
    readln(n);
 
  writeln('Введите элементы матрицы');
  for i:=1 to n do begin
    for j:=1 to n do
      read(matrici1.matrix[i,j]);
    matrici1.matrix[i,j+1]:='4.5';
    writeln;
  end;
  matrici1.matrix[i+1,1]:='4.5';
  write(FK,matrici1);
  close(FK);
end;
 
BEGIN
 
             clrscr;
             ReadFileName(FName);
             clrscr;
             WriteToFile(FK,FName);
END.