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

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