Дана строка ,заменить символ ? на ! язык pascal

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.