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

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.

uses crt;
const rz=[' ','.',',',';',':','?','!','"'];
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:=1;
  i:=1;
  while i<length(s) do
  if ((s[i] in rz)and not(s[i+1] in rz)) or((i=1)and (s[i] in rz)) then
   begin
    k:=k+1;
    if s[i]='"' then
     begin
      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;
      k:=k+1;
     end
    end
   else i:=i+1;
  writeln(g,s);
 end;
close(f);
close(g);
write('Файл ',nf,' переписан в файл ',ng);
readln
end.

program z1;
uses crt;
const rz=[' ','.',',',';',':','?','!','"'];
 
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
if ((s[i] in rz)and not(s[i+1] in rz)) or((i=1)and (s[i] in rz)) then
 
 begin
  readln(f,s);
  k:=1;
  i:=1;
  while i<=length(s) do
  if s[i]='"' then
   begin
    
  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;
k:=k+1;
   end;
end
  else i:=i+1;
  writeln(s);
 
close(f);
readln
end.

program z1;
uses crt;
const rz=[' ','.',',',';',':','?','!','"'];
var f,g:text;
    i,k:byte;
    nf,ng,s,s1:string;
begin
clrscr;
assign(f,'14ish.pas');
reset(f);
assign(g,'14zapi.pas');
rewrite(g);
while not eof(f) do
 begin
  readln(f,s);
  k:=1;
  i:=1;
  while i<length(s) do
  if ((s[i] in rz)and not(s[i+1] in rz)) or((i=1)and (s[i] in rz)) then
   begin
    k:=k+1;
    if s[i]='"' then
     begin
      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;
      k:=k+1;
     end
    end
   else i:=i+1;
  writeln(g,s);
 end;
close(f);
close(g);
{write('Файл ',nf,' переписан в файл ',ng);}
writeln(g);
readln
end.