Текстовый файл. Напечатать заданное слово в обратном порядке

program zadanie;
var
 f,g:text;
 n,m,fName,gName:string[80];
 v,pos:integer;
 
begin
  write('введите текст (input.txt, если нет текста): ');
  readln(fName);
  if fName='' then fName:='input.txt';
  assign(f,fName);
  reset(f);
  write('введите текст (output.txt, если нет текста): ');
  readln(gName);
  if gName='' then gName:='output.txt';
  assign(g,gName);
  rewrite(g);
  write('введите номер записи: ');
  readln(pos);
  write('введите вставку: ');
  readln(m);
  while not Eof(f) do begin
    readln(f,n);
    writeln('old=',n);
    if length(n)>=pos then insert(m,n,pos+1);
    writeln(g,n);
    writeln('new=',n);
  end;
  close(g);
  close(f);
  readln
end.

type str=string[80;

program zadanie;
type str=string[80];
var
 f,g:text;
 n,m,fName,gName:str;
 v,pos:integer;