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 ssekeof(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.

Очень надо , ЭТА ПРОГРАММА запоминает только последнюю строку

[alexcoder]

Андрей88991, обращайтесь e-mail: informatik101@mail.ru
Telegram: @alexcoder1
vk.com/alexcoder1

[Arigato]

Напишите мне на почту, сделаю вашу задачу - arigato.freelance@gmail.com

[xxbesoxx]

Обращайтесь, E_MAIL: rijgvina7@yahoo.com
1. (Техническое задание)все что требуется .
2. Сколько вы готовы заплатить за эту работу и срок выполнения работы.
3. Работаю только с предоплатой 30%

[Алексей_2012]

посмотри другую свою тему.