Программирование.язык паскаль. ,нужно нарисовать блок схемы и написать программы 1)дана строка и буква. определить сколько слов в строке начинается на эту букву.вывести эти слова. 2)составить программу,которая в заданном слове с дефисом меняет местами части до и после дефиса

2 задача
var   
   s,a,b:string;
begin     
   writeln('Введите слово: ');  readln(s);     
   b:=Copy(s,1,Pos('-',s)-1);     
   a:=Copy(s,Pos('-',s)+1,Length(s)-Length(b));     
   writeln(a,'-',b);
end.