Nahrazení slov v souboru txt – Pascal – Fórum – Programujte.com

Zdravím pánové,
mám tady problém. Musím udělat program, který po zadání souboru txt uživatelem a slova které má vyhledat, to slovo nahradí (opět slovem, kterě zadal uživatel) a soubor uloží. Zde je můj současný kód:

program Nahrazovac;
uses crt;

var txt,vystup:textfile; {txt je vstupni soubor, vystup bude novy prepsany soubor}
vstup,slovo,nahrada:string; {vstup je promenna s nazvem vstupniho souboru, slovo je hledane slovo a nahrada je slovo, ktere se bude nahrazovat}
vypis:string; {vypis je promenna, pres kterou odkazuji na retezec}
delka:byte; {prvni souradnice hledaneho slova}

begin
clrscr();
writeln('Napiste nazev souboru (i s priponou txt)');
readln(vstup);
Assign(txt, vstup);
{$I-}
Reset(txt);
{$I+}
if ioresult 0 then
begin
writeln('Soubor se nepodarilo otevrit');
Exit;
end;
Assign(vystup, 'nahrazeny');
Rewrite(vystup);

writeln('Zadejte slovo, ktere chcete nahradit.');
readln(slovo);
writeln('Zadejte slovo, kterym ho chcete nahradit.');
readln(nahrada);

while not eof(txt) do
begin
readln(txt, vypis);
delka := pos(slovo,vypis);

if pos(slovo, vypis) = 0 then
se

delete(vypis, delka, delka + (length(slovo) - 1)); {Melo by to smazat ze souboru vypis slovo na pozicich prvniho znaku slova a prvniho znaku slova + delky slova - 1}
insert(nahrada, vypis, delka);
writeln(vypis);
end;
Close(txt);
readln;
end.

Zasláno z mobilního telefonu.

#1 GunSpawn
A tvůj problém je v čem?

Nekdy mi to prepise vic souradnici a pokud se slovo na danem radku nevyskytuje, vytvori ho na zacatku (vim proc, ale nevim jak to opravit). A pak aby se to ulozilo do toho stejneho souboru.

Zasláno z mobilního telefonu.

A taky bych potřeboval, aby když to na tom řádku to slovo nenajde, přeskočilo to na novej

Tak už jsem to lehce upravil a jde to, akorát ještě potřebuju pomoct s tím, že když je dané slovo na řádku víckrát,vyhledá jen jedno.

program Nahrazovac;
uses crt;

var txt,vystup:textfile;              {txt je vstupni soubor, vystup bude novy prepsany soubor}
    vstup,slovo,nahrada:string;       {vstup je promenna s nazvem vstupniho souboru, slovo je hledane slovo a nahrada je slovo, ktere se bude nahrazovat}
    vypis:string;                     {vypis je promenna, pres kterou odkazuji na retezec}
    delka:byte;                       {prvni souradnice hledaneho slova}

begin
  clrscr();
  writeln('Napiste nazev souboru (i s priponou txt)');
  readln(vstup);
  Assign(txt, vstup);
  {$I-}
  Reset(txt);
  {$I+}
  if ioresult <> 0 then
  begin
  	writeln('Soubor se nepodarilo otevrit');
  	Exit;
  end;
  Assign(vystup, 'nahrazeny.txt');
  Rewrite(vystup);

  writeln('Zadejte slovo, ktere chcete nahradit.');
  readln(slovo);
  writeln('Zadejte slovo, kterym ho chcete nahradit.');
  readln(nahrada);

  while not eof(txt) do
  begin
   readln(txt, vypis);
   writeln(vypis);
   readln();
   delka := pos(slovo,vypis);

   if delka <> 0 then
   begin
   delete(vypis, delka, delka + (length(slovo) - 1));   
   insert(nahrada, vypis, delka);                       
   writeln(vystup,vypis);
   end;
  end;
  Close(vystup);
  readln;
end.

Vyřešeno