Заменить в текстовом файле Roman.txt все ' . ' символом ' ! '

program Project5;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:string; t:textfile; c:char;
begin
  s:='';
  assignfile(t,'roman.txt');{файл должен быть вместе с самой програмой в одной папке, конечн можно пихнуть компонент поиска, но это мелочи основа - вот
} if fileexists('roman.txt') then begin  reset(t);
    while(not(eof(t))) do begin
      read(t,c);
    if c='.' then s:=s+'!' else s:=s+c;
    end;
    closefile(t);
    assignfile(t,'roman.txt');
    rewrite(t);
    write(t,s);
    closefile(t);
    end;
end.

program Project5;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var s:string; t:textfile; c:char;  //Первая - строка, затем файл и переменная, хранит только по одному символу
begin
  s:=''; //обнуляем строку
  assignfile(t,'roman.txt');{файл должен быть вместе с самой програмой в одной папке, конечн можно пихнуть компонент поиска, но это мелочи основа - вот
} if fileexists('roman.txt') then begin  reset(t); //если файл существует, открываем на чтение
    while(not(eof(t))) do begin //пока файл не закончен,
      read(t,c);                                        //считываем по одному
    if c='.' then s:=s+'!' else s:=s+c;//если это точка, то меняем на воск. знак, иначе просто дописываем строку
    end;
    closefile(t);//закрываем фаил
    assignfile(t,'roman.txt');   //переоткрываем для записи
    rewrite(t);
    write(t,s);//записываем
    closefile(t);//закрываем
    end;
end.

Procedure MyProc(fname:string;src,des:char);
var F,F1:text; S:string; a:byte;
begin
Assignfile(f,fname); Assignfile(f1,fname);
if fileexists(fname) then 
   begin
reset(f); rewrite(f1);
while not eof(f) do
      begin
readln(f,s);
while a>0 do
         begin
a:=pos(src,s);
s[a]:=des
         end
writeln(f1,s)
      end;
closefile(f);closefile(f1);
erase(f); rename(f1,fname);
   end else  showmessage('File not found!!!')
end.

{$i-} reset(t) {$i+} if ioresult=0 then begin...