Дан текст. Переставить в нем первую буковку первого предложения и первую

program change;
var s: string;
k: integer;
temp: char;
begin
writeln(Введите строчку из 2-ух коротких предложений,);
writeln(разбитых точкой и пробелом.);
readln(s);
k:= 1;
while s[k] lt;gt; . do k:= k + 1;
temp:= s[1];
s[1]:=s[k + 2];
s[k + 2]:= temp;
writeln(s)
end.