Укажите на ошибки . Чего не хватает?

[kabargak]

Программа должна менять все буквы "и" в введенной строке на "_" и выводить результат на экран.

Program kabarga;
Uses Crt;
Var s:string;
i:integer;
begin
write('Введи строчку');
readln(s);
for i:=1 to length(s) do if (s[i]='и') then s[i]:='_';
writeln(s);
end.

Пишет, что программа выполнена, но ничего не выводит на экран.

[evg_m]

после вывода ответа добавьте

writeln(s);
readln;