Составить программу, которая считывает текст из файла, заменяет в нем все буквы "о" на "а" и записывает файл на диск

@rusya_urazov_ · Регистрация: 05.03.2020

Помогите до решать программу. Программа не изменяет буквы

Pascal

Var f,g:text;
    s:string;
    i:integer;
Begin
    Assign(f,'c:\games\a.txt');Reset(f);{Файл для открытия};
    Assign(g,'c:\games\b.txt');Rewrite(g);{Файл для записи};
    While not Eof(f) do
     Begin
      readln(f,s);
      while pos('o',s)>0 do
        S[Pos('о', S)] := 'а'; 
      writeln(g,s);
     End;
    writeln('Формирование файла закончено!');
    Close(f);Close(g);
End.

@ZX Spectrum-128 · 12.04.2020, 07:06

Pascal

var
  f, g: text;
  s: string;
  i: integer;
 
begin
  Assign(f, 'a.txt');
  Reset(f);{Файл для открытия};
  Assign(g, 'b.txt');
  Rewrite(g);{Файл для записи};
  while not Eof(f) do
  begin
    readln(f, s);
    for i := 1 to length(s) do
      if s[i] = 'o' then
        s[i] := 'a';
    writeln(g, s);
  end;
  writeln('Формирование файла закончено!');
  Close(f);
  Close(g);
end.

Опции темы