Дана непустая последовательность слов из строчных букв; между соседними словами - запятая, за последним словом - точка. напечатать в алфавитном порядке все согласные буквы, которые входят только в одно слово.
проверьте моё решение и исправьте что не так,
var s,s1: string; st2,st3,st1,st: set of char; n,i: byte;
begin
readln(s);
n: =length(s);
st: =['б','в'];
i: =1;
while i< =n do begin
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st1: =st1+[s[i]];
inc(i); if i=n then break;
end;
i: =i+1;
while (s[i]< > ',') or (s[i]< > '.') do begin
if s[i] in st1 then n: =n else
if (s[i] in st) then st2: =st2+[s[i]];
inc(i); if i=n then break
end;
st3: =st1*st2;
st1: =st1-st3; st2: =st2-st3; st1: =st1+st2;
end;
for i: =1 to n do
if s[i] in st1 then n: =n else write(s[i],' ');
end.

1.Постановка задачи разрабатывается организацией, разработчиком программной продукции, на основании технического задания совместно с заказчиком. Главный исполнитель — это разработчик

2.Алгоритм-Последовательность действий, приводящих к результату.

Блок-схема- Графический записи алгоритма.

Исполнитель алгоритма-Человек, компьютер, автомат.

Язык программирования-Знаковая система для записи компьютерных программ.

Программа-Последовательность действий, приводящих к результату.

Объяснение:

Удачи тебе в учёбе!

Type
  Point=record
    x,y:real
    end;

procedure GetPoint(c:char; var A:Point);
  var
    x,y:real;
begin
  Write('Введите координаты x и y точки ',c,': ');
  Read(x,y);
  A.x:=x; A.y:=y
end;

function DistPoint(A,B:Point):real;
begin
  DistPoint:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y))
end;

var
  A,B,M:Point;
  d,p,ab,ma,mb:real;
begin
  GetPoint('A',A); GetPoint('B',B); GetPoint('M',M);
  ab:=DistPoint(A,B); ma:=DistPoint(M,A); mb:=DistPoint(M,B);
  if ma>=ab+mb then d:=mb
  else
    if mb>=ma+ab then d:=ma
    else begin
      p:=(ma+mb+ab)/2;
      d:=2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab
    end;
  Writeln('Минимальное расстояние составляет ',d)
end.

Тестовое решение:
Введите координаты x и y точки A: -3 -5
Введите координаты x и y точки B: 2 5
Введите координаты x и y точки M: -3 4
Минимальное расстояние составляет 4.02492235949962