Заменить в тексте слова, заключенные в ковычки порядковым номером!

program z1;
var
i,n:integer;
st:string;
f:text;
begin
assign(f,14ish.pas');
reset(f)
readln(f,st);
i:=length(st);
while i>1 do if st[i]='"' then begin
n:=i;
while(st[n]<>'"') and (n<=lenghth(st)) do n:=n+1;
delete(st,i+1,n-i-1);
i:=i-1;
end else i:=i+1;
writeln(st);
readln;
end.

assign(f,'14ish.pas');

st:=' '+st;
for i:=1 to length(st) do
if st[i]=' ' then k:=k+1 else a[k]:=a[k]+st[i];

uses crt;
var f,g:text;
    i,k:byte;
    nf,ng,s,s1:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(ng);
ng:=ng+'.txt';
assign(g,ng);
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  k:=0;
  i:=1;
  while i<=length(s) do
  if s[i]='"' then{если кавычка}
   begin
    k:=k+1;{считаем}
    i:=i+1;{шаг вперед}
    str(k,s1);{преобразуем номер в строку}
    insert(s1,s,i);{вставляем за кавычкой}
    i:=i+length(s1);{перепрыгиваем через номер}
    while s[i]<>'"' do{пока не следующая кавычка}
    delete(s,i,1);{удаляем}
    i:=i+1;{перепрыгиваем через кавычку}
   end
  else i:=i+1;{иначе вперед}
  writeln(g,s);{пишем измененную строку в новый файл}
 end;
close(f);
close(g);
write('Файл ',nf,' переписан в файл ',ng);
readln
end.

program z1;
uses crt;
var f,g:text;
    i,k:byte;
    nf,ng,s,s1:string;
begin
clrscr;
assign(f,'14ish.pas');
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  k:=0;
  i:=1;
  while i<=length(s) do
  if s[i]='"' then
   begin
    k:=k+1;
    i:=i+1;
    str(k,s1);
    insert(s1,s,i);
    i:=i+length(s1);
    while s[i]<>'"' do
    delete(s,i,1);
    i:=i+1;
   end
  else i:=i+1; close(f);  end;
 
write(s);
readln
end.

while not eof(f) do
 begin
  readln(f,s);
  k:=0;
  i:=1;
  while i<=length(s) do
  if s[i]='"' then
   begin
    k:=k+1;
    i:=i+1;
    str(k,s1);
    insert(s1,s,i);
    i:=i+length(s1);
    while s[i]<>'"' do
    delete(s,i,1);
    i:=i+1;
   end
  else i:=i+1;
  writeln(s);
 end; 
close(f);
readln
end.