Помогите пожалуйста!!!СРОЧНО!!! Прошу!!!Написать программу в паскале!!!


Составить процедуру, заменяющую в исходной строке символов все единицы нулями и все нули единицами. Замена выполняется, начиная с заданной позиции строки.

vark:integer;s:string;procedure Zamena(var ss:string; p:integer);vari:integer;beginfor i:=p to length(ss) dobeginif ss[i]='1' then ss[i]:='0' elseif ss[i]='0' then ss[i]:='1';end;end;beginwriteln('Введите строку: ');readln(s);writeln('Введите позицию с которой начинать замену: ');readln(k);Zamena(s,k);writeln('Измененная строка: ',s);end.