Заменить в исходной строке символов все единицы нулями и все нули единицами

var
  s:string;
  i,po:integer;
{îñíîâíàÿ ïðîãðàììà}
begin
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  repeat
    writeln('C êàêîé ïîçèöèè íà÷àòü:');
    readln(po);
    if po=0 then
      exit;
    if (po>length(s)) or (po<0) then
      writeln('Íåâåðíî çàäàíà ïîçèöèÿ! Ïîïðîáóéòå åùå ðàç èëè ââåäèòå 0 äëÿ âûõîäà!')
  until
    (po<=length(s)) and (po>=1);
  for i:=po to length(s) do
  begin
    if s[i]='1' then
      s[i]:='0'
    else
      if s[i]='0' then
        s[i]:='1'
  end;
  writeln('Ïîëó÷åííàÿ ñòðîêà:');
  writeln(s)
end.

var
  s:string;
  i,po:integer;
{ïðîöåäóðà çàìåíû}
procedure Pr(var s:string; const po:integer);
var
  i:integer;
begin
  for i:=po to length(s) do
  begin
    if s[i]='1' then
      s[i]:='0'
    else
      if s[i]='0' then
        s[i]:='1'
  end
end;
{îñíîâíàÿ ïðîãðàììà}
begin
  writeln('Ââåäèòå ñòðîêó:');
  readln(s);
  repeat
    writeln('C êàêîé ïîçèöèè íà÷àòü:');
    readln(po);
    if po=0 then
      exit;
    if (po>length(s)) or (po<0) then
      writeln('Íåâåðíî çàäàíà ïîçèöèÿ! Ïîïðîáóéòå åùå ðàç èëè ââåäèòå 0 äëÿ âûõîäà!')
  until
    (po<=length(s)) and (po>=1);
  Pr(s,po);
  writeln('Ïîëó÷åííàÿ ñòðîêà:');
  writeln(s)
end.