H-P с блоксхемой

const
  D = [',', '.', ':', '!', '?', '-', ' ', #9, #10, #13];
 Da = ['A', 'E', 'I', 'O', 'U', 'Y', 'a', 'e', 'i', 'o', 'u', 'y'];
var
  S : String;
  i, j, Len : Integer;
  Ch : Char;
  Dt, Dw : set of Char;
begin
  repeat
    Writeln('vvedite stroky:');
    Readln(S);
 
 
    Dt := [];
 
    Dw := [];
    Len := Length(S);
    j := 0;
    for i := 1 to Len do begin
 
      if S[i] in D then Continue;
 
      if S[i] in Da then Dw := Dw + [ S[i] ];
 
      if (i = Len) or (S[i + 1] in D) then begin
        Inc(j);
        if j = 1 then Dt := Dw
        else Dt := Dt * Dw;
        Dw := [];
      end;
    end;
 
    Writeln('bykvi est:');
    if Dt = [] then
    else
    begin
      i := 0;
      for Ch := #0 to #255 do begin
        if Ch in Dt then begin
          Inc(i);
          if i > 1 then Write(', ');
          Write(Ch);
        end;
        end;
        writeln;
      end; 
      writeln (' ');
      readln(S);
      until S<> '';
      end.

uses crt;
type
tS = set of byte;
const
S1: tS= [1,4..8,15] ;
S2: tS= [2,4,6,9..12];
var
a:array [1..10,1..10] of integer;
i,j,s:integer;
begin
clrscr;
begin
randomize;
for i:=1 to 10 do
for j:=1 to 10 do
a[i,j]:=random(10)-3;
end;
for i:=1 to 10 do
begin
for j:=1 to 10 do
write (a[i,j]:4);
writeln;
end;
begin
s:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if (i in S1) and (j in S2) then s:=s+a[i,j];
writeln('S=',s);
end;
end.