Дана строка из 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.

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