Дана строка из 0 и 1. замените в ней все 0 и 1,а все 1 на 0 паскаль

Program z1;
var stroka:string;
var i:integer;
begin
writeln('Введите строку');
readln(stroka);
for i:=1 to length(stroka) do
begin
if(stroka[i]='1') then
stroka[i]:='0'
else if(stroka[i]='0') then
stroka[i]:='1';
end;
writeln(stroka);
end.