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

program change;

var s: string;

k: integer;

temp: char;

begin

writeln ('Введите строку из двух коротких предложений,');

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.