Begin
readln(f1,pole);
while (pos(‘дке-101’, pole)) <> 0 do
Begin
pz:= pos(‘дке-101’, pole);
delete(pole,pz+4,1);
insert(‘2’,pole,pz+4);
end;
Writeln(f2,pole)
end;
close(f1);
close(f2);
End.
Здесь читаются последовательно строки из входного файла и в каждой строке в номере группы заменяется символ 1 на 2. Скорректированные строки выводятся в новый файл.