Замена слов в файле

program pr1;
uses crt;
Type t=record
d:string;
end;
var
f: file of t;
st:t;
i:integer;
begin
clrscr;
assign(f,'F.txt');
reset(F);
for i:=1 to 12 do
begin
readln(st.d);
write(f,st);
st.d:=',';
write(f,st);
end;
close(f);
end.

Program pr1;
uses crt;
var
fail:text;
i:integer;
s:string;
begin
clrscr;
assign(fail,'textFail.txt');
reset(fail);
i:=1;
repeat
readln(fail,s);
if s[1]='T' then
begin
writeln('stroka: ',s,', number: ',i);
break
end;
if ((eof(fail)) and (not(s[1]='T'))) then writeln('Strok net!!!');
i:=i+1;
until eoln(fail);
readln;
end.

program EvgeniiSp;
uses Crt;
const
 name = 'F.txt';
Type
 t = record
      d: string;
     end;
var
 f: file of t;
 
//-------- CreateFile ------//
 procedure CreateFile;
  begin
   if FileExists(name) then reset(f)
       else
        begin
         write('Äàííîãî ôàéëà íå ñóùåñòâóåò!');
         Halt;
        end;
  end;
  
//-------- WriteFile ------//
 procedure WriteFile;
  var
   st: t;
   i: integer;
  begin
   writeln(' â ôàéëå:   |    íîâûå: ');
   for i:=1 to 12 do
    begin
     read(f,st);
     write(st.d,'   =   ');
     readln(st.d);
     write(f,st);
    end;
   Close(f);
  end;
  
begin
 ClrScr;
 Assign(f,name);
 CreateFile;
 WriteFile;
end.

Type
 t = record
      d: string;
     end;
var
 f: file of t;

program EvgeniiSp;
uses Crt;
const
 name = 'F.txt';
Type
 t = record
      d: string;
     end;
var
 f: file of t;
 
//-------- CreateFile ------//
 procedure CreateFile;
  var
   st: t;
   i: integer;
  begin
   Rewrite(f);
   writeln('Вводите слова(12 штук): ');
   for i:=1 to 12 do
    begin
     write(f,st);
    end;
   Close(f);
  end;
 
begin
 ClrScr;
 Assign(f,name);
 CreateFile;
end.

Program pr1;
uses 
  crt;
var
  fail:text;
  i:integer;
  s:string;
  p:boolean;
begin
  clrscr;
  assign(fail,'textFail.txt');
  reset(fail);
  i:=1;
  p:=false;
  repeat
    readln(fail,s);
    if s[1]='T' then
    begin
      writeln('stroka: ',s,', number: ',i);
      p:=true;
    end;
    inc(i);
  until eoln(fail) or p;
  if  not(p) then 
    writeln('Strok net!!!');
  readln;
end.