program w Pascalu, wczytywanie pliku, zapis do pliku.

while not eof(fin) do begin
    readln(fin, s);
    if s>nowy then begin
         writeln(fout, nowy);
         writeln(fout, s);
         break;
    end;
    writeln(fout, s);
end;

while not eof(fin) do begin
    readln(fin, s);
    writeln(fout, s);
end;
close(fin); erase(fin);
rename(fout); close(fout);

   
function sprawdz (linia,tekst:string):boolean;
  var
    i : byte;
    p : boolean;
begin
  p := FALSE;
  i:=0;

  repeat
    inc(i);
    if (upcase(linia[i-1]) = upcase(tekst[i-1])) or (i =1) then
      if upcase(linia[i]) > upcase(tekst[i]) then
         p := TRUE
  until p or (i = length (linia));

  sprawdz := p
end {sprawdz};