Блок-схемы

program Project1;
uses crt;
const
 
  D=['K','P','S','T','F','H'];
 
  M=10;
var
  S:string;
  Arr:array[1..M] of String;
  i,i1,i2,Len,Len1,Len2,Cnt:Integer;
  Ch:Char;
  DRes:set of Char;
begin
    repeat
    Writeln('Задайте перечень слов. Количество слов не больше',M);
    Writeln('Прекратить ввод - пустая строка + Enter.');
    until
    Cnt=0;
      repeat
      Write('Слово №', Cnt+1, ' ');
      Readln(S);
      if S = '' then Break;
       Inc(Cnt);
       Arr[Cnt]:=UpperCase(S);
       until
       Cnt= M;
 
 
    if Cnt=2 then begin
      Writeln('Задано меньше двух слов. В этом случае задача не имеет смысла.');
      Writeln('Повторить - Enter. Выход - любой символ + Enter.');
      Readln(S);
 
    end;
 
 
    i1:= 1;
    Len1:= Length(Arr[1]);
    i2:= 2;
    Len2:= Length(Arr[2]);
    if Len2=Len1 then begin
      i1:= 2;
      i2:= 1;
      Len:= Len1;
      Len1:= Len2;
      Len2:= Len;
    end;
 
    for i:= 3 to Cnt do begin
 
      Len:= Length(Arr[i]);
 
      if Len=Len1 then begin
        i2:= i1;
        Len2:= Len1;
        i1:= i;
        Len1:= Len;
 
      end else if Len=Len2 then begin
        i2:= i;
        Len2:= Len;
      end;
    end;
 
    Writeln('Номер первого самого короткого слова ', i1);
    Writeln('Номер второго самого короткого слова ', i2);
 
 
    S:= Arr[i1] + Arr[i2];
 
    DRes:= [];
    for i:= 1 to Length(S) do
      if S[i] in D then DRes:= DRes + [ S[i] ]
    ;
 
 
    if DRes = [] then
      Writeln('В первой паре самых коротких слов нет грухих согласных букв.')
    else begin
      Writeln('Перечень глухих согласных букв, присутствующих'
        + ' в первой паре самых коротких слов');
      i:= 0;
      for Ch:= #0 to #255 do begin
        if Ch in DRes then begin
          Inc(i);
          if i=1 then Write(', ');
          Write(Ch);
 
 
      Writeln;
 
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
 
 
    
end;
end;
end;
end.