Столбиковая гистограмма: количество слов, заканчивающихся на буквы введённого алфавита

program z1;
uses crt;
var
        alf,s:string;  mas:array [1..100] of char;
        ms:array[1..100,1..100] of char;  x:array [1..100] of integer;
        i,j,n:integer; m:set of char;
begin
clrscr;
 
n:=1;
m:=[];
readln(alf);
 
 
readln(s);
 
for i:=1 to length(alf) do begin
ms[1,i]:=alf[i];
x[i]:=0;
end;
 
for i:=1 to length(alf) do begin
m:=m+[alf[i]];
end;
if s[length(s)] in m then mas[length(s)]:=s[length(s)];
 
for i:=1 to length(s) do begin
if s[i]=' ' then
if s[i-1] in m then  mas[n]:=s[i-1]; n:=n+1;
 
end;
 
for i:=1 to n do begin
if mas[i] in m then
for j:=1 to length(alf) do begin
if mas[i]=ms[1,j] then x[j]:=x[j]+1;
end;
end;
 
 
for j:=1 to length(s) do begin
write (ms[1,j]);
end;
 
for j:=1 to length(alf) do begin
if x[j]<>0 then
write (' ',x[j]);
end;
readln;
end.

program z1;
uses
   crt;
 
const
   full = 15; // <--- Самый высокий столбик гистограммы будет высотой в 15 символов
 
var
   alf, s : string;
   count : array['a' .. 'z'] of integer;
   ch : char;
 
   i, j : integer;
   m : set of char;
   max, col, colcount, row : integer;
 
begin
   clrscr;
   m := [];
   readln(alf);
   alf := 'a b c d';
   for i := 1 to length(alf) do
   begin
      if alf[i] <> ' ' then m := m + [alf[i]];
   end;
 
   readln(s);
   // s := 'dfga dfghb dfgb yud eryd eryd eee dec ded dea dea dea dea dea';
 
   if s[length(s)] in m then count[s[length(s)]] := 1;
   for i := 1 to length(s) do
   begin
      if (s[i] = ' ') and (i > 1) and (s[i - 1] in m) then
         inc(count[s[i - 1]]);
   end;
 
   max := 0; colcount := 0;
   for ch := 'a' to 'z' do
   begin
      if count[ch] > 0 then
      begin
         write(ch:3, count[ch]:2);
         if count[ch] > max then max := count[ch];
         inc(colcount);
      end;
   end;
 
   ch := 'a';
   for col := 1 to colcount do
   begin
      gotoxy(2 * col, full + 5);
      while count[ch] = 0 do ch := succ(ch);
      write(ch);
      for row := 1 to trunc(count[ch] * full / max) do
      begin
         gotoxy(2 * col, full + 4 - row);
         write('*'); // <--- Символ можешь изменить
      end;
      ch := succ(ch);
   end;
   readln;
end.