С клавиатуры вводится строка. Заменить все русские буквы на точки Pascal ABC

var s:string;

i:integer;

BEGIN

readln(s);

for i:=1 to Length(s) do

if ((ord(s[i])>=1040) and (ord(s[i])<=1103)) or (ord(s[i])=1025) or (ord(s[i])=1105) then

s[i]:='.';

writeln(s);

end.