Pascal ABC :Дан файл, ввести с клавиатуры слово которое нужно найти и заменить его на слово введенное с клавиатуры, кол-во строк в тексте файла (не одна)

[Андрей88991]

var
a,c,v:string;
n:integer;
t: text;
begin
assign(t,'D:/файлы/СиАСОД.txt');
reset(t);
writeln('Введите искомое слово: ');
readln(a);
writeln('Введите слово для замены: ');
read(v);
while not seekeof(t)do
begin
read(t,c);
if (pos(a,c)>0)then
n:=pos(a,c);
delete(c,n,length(a));
insert(v,c,n);
end;
close(t);
rewrite(t);
write(t,c);
close(t);
end.

Вот,написал, что смог, но заменяет она лишь в последней строке и удаляет все остальные строки

[ViktorR]

Если в текстовом файле несколько строк, то надо работать либо через память (читать все строки в память, например, в строковый массив), либо через дополнительный (временный) файл, куда сбрасываем прочитанные и исправленные строки.
Если работаем через файл, то там будут заморочки в случае требования сохранить имя исходного файла (удаление исходного и переименование временного).
А так, как решено сейчас, то в цикле есть поиск, удаление и замена, но нет сохранения.
После выхода из цикла сохраняется последняя прочитанная строка.

PS: Форматируйте код. Выделите код и нажми кнопку [CODE]

[Андрей88991]

Виктор, простите пожалуйста, я только начинающий , не могли бы вы мне помочь именно с листингом программы, пожалуйста!!!

[digitalis]

Листинг - это то, что получается после компиляции исходника, которого у тебя нет. Если по простому, без умных слов, то "напишите за меня прогу, я во всём этом как в лесу, мне только корочки надо, а эти Пыскали - гори они огнём".

[Андрей88991]

digitalis, Да, в дальнейшем мне не пригодится программирование в Паскаль, поэтому и попросил помощи

[ViktorR]

1. Нет. Не помогу. И времен нет и интереса.
2.

Да, в дальнейшем мне не пригодится программирование в Паскаль, поэтому и попросил помощи

Делу тут не в Паскале. Не важно на каком языке надо реализовать задачу.
Утверждение о том, что Паскаль не пригодится - это глубокое заблуждение.
Не следует на себя надевать шоры.
Умение составлять алгоритм - это умение грамотно планировать свою работу и работу своих товарищей, подчинённых ...
Это вроде бы абстрактные фразы, но подумать следует.

[Алексей_2012]

1. создать файл на диске д с именем СиАСОД и расширением txt
2. суть программы в том, что заполняется массив строк построчно из файла
3. в элементе массива ищется подстрока
4. если есть, то удаляется искомое слово и заменяется на нужное в элементе массива (если их несколько - тоже)
5. массив записывается в файл

function count_rec(t: text): integer;
var
  i: integer;
  c: string;
begin
  i := 0;
  
  reset(t);
  
  while not eof(t) do
  begin
    readln(t, c);
    inc(i);
  end;
  
  
  Result := i;
end;


function Parsre_F(t: text): string;
var
  s: string;
begin
  readln(t, s);
  result := s;
end;



var
  a, c, v: string;
  t: Text;
  ok:boolean;
  arr: array of string;
  i, k: integer;

begin
  
  c := 'D:\СиАСОД.txt';
  Assign(t, c);
  
  if FileExists(c) then 
  begin
    
    SetLength(arr, count_rec(t));
    
    i := 0;
    
    
    reset(t);
    
    while not eof(t) do
    begin
      arr[i] := Parsre_F(t);
      inc(i);
    end;
    
    close(t);

    
    writeln('Введите искомое слово: ');
    readln(a);
    writeln('Введите слово для замены: ');
    read(v);
    
    rewrite(t);
    ok:=false;
    for i := 0 to Length(arr) - 1 do
    begin
      
      
      
      k := pos(a, arr[i]);
      
      if (k <> 0) then 
      begin
      ok:=true;
        delete(arr[i], k, length(a));
        Insert(v, arr[i], k);
        writeln('Найдено в ',i+1,' строке "',arr[i],'"');      
      end;
      
      
      
      writeln(t, arr[i]);
    end;
    
    close(t);
    
    arr := nil;
    if ok then c:='ok' else c:='совпадений небыло найдено!';
    writeln(c);
  end else writeln('Создайте и заполните файл текстом на диске D, с именем СиАСОД.txt !');
  
end.