var
  fFSrc: TextFile;
  fFTrg: TextFile;
  fOff1: Integer;
  fOff2: Integer;
  fOrig: string;
  fSrcStr: string;
begin
  fOff1 := Length('tovar=') + 1;
  AssignFile(fFSrc, 'src.txt');
  Reset(fFSrc);
  AssignFile(fFTrg, 'trg.txt');
  Rewrite(fFTrg);
  while not Eof(fFSrc) do begin
    Readln(fFSrc, fSrcStr);
    fOff2 := PosEx(';', fSrcStr, fOff1);
    if fOff2 > fOff1 then begin
      fOrig := Copy(fSrcStr, fOff1, fOff2 - fOff1);
      if fOrig = 'pmd' then
        fSrcStr := StuffString(fSrcStr, fOff1, fOff2 - fOff1, 'пындыром')
      else if fOrig = 'ogur' then
        fSrcStr := StuffString(fSrcStr, fOff1, fOff2 - fOff1, 'огурец')
      else if fOrig = 'arb' then
        fSrcStr := StuffString(fSrcStr, fOff1, fOff2 - fOff1, 'арбус')
      else if fOrig = 'kolb' then
        fSrcStr := StuffString(fSrcStr, fOff1, fOff2 - fOff1, 'колбас')
    end;
    Writeln(fFTrg, fSrcStr);
  end;
  CloseFile(fFSrc);
  CloseFile(fFTrg);