Определить и вывести в алфавитном порядке символы, с которых начинаются слова текста

uses crt;
const
s:array[1..2] of string=
('Элен улыбнулась с таким видом, который говорил, что она не допускала'+
 ' возможности, чтобы кто-либо мог видеть ее и не быть восхищенным.',
 'Тетушка прокашлялась,проглотила слюни и по-французски сказала,'+
 'что она очень рада видеть Элен; потом обратилась к Пьеру с тем же'+
 ' приветствием и с той же миной.');
var m:set of char;{множество для собирания букв}
    i,j,k:byte;
begin
clrscr;
for i:=1 to 2 do
writeln(s[i]);
m:=[];
for i:=1 to 2 do
 begin
  for j:=1 to length(s[i]) do
  if(j=1)or((s[i][j]<>' ')and(s[i][j-1]=' ')) then{если слово первое, или буква стоит после пробела}
  include(m,s[i][j]);{включаем в множество}
 end;
k:=0;
for i:=128 to 241 do{интервал кодов символов русских букв}
if chr(i) in m then{если символ есть в множестве}
 begin
  write(chr(i),' ');{выводим}
  k:=k+1;{считаем}
 end;
writeln;
writeln('Количество символов=',k);
readln
end.

uses crt;
const n=10;
      eps=0.00001;
function Arcctg(x:real):real;
var s,t:real;
    i:integer;
begin
s:={pi+}1/x;{так считает правильно, а если раскомментировать, то неправильно.}
t:=1/x;
i:=1;
while abs(t)>=eps do
 begin
  t:=t*(-1)/(x*x);
  s:=s+t/(2*i+1);
  i:=i+1;
 end;
Arcctg:=s;
end;
var x,xn,xk,h,y:real;
    i:integer;
begin
clrscr;
repeat
write('Введите конец интервала табулирования x<-1 x=');
readln(x);
until x<-1;
repeat
write('Введите шаг табулирования h>0 h=');
readln(h);
until h>0;
x:=x+h;
for i:=1 to n do
 begin
  x:=x-h;
  y:=Arcctg(x);
  writeln('x=',x:5:1,'   y=',y:10:5);
 end;
readln
end.

zap=record
      sum:real;
      kol:byte;
      end;
var m:array[1..20] of zap;

uses crt;
var f,g:text;
    a,b:array[1..3,1..5] of integer;
    m,n,i,j,k,imx,jmx:byte;
    mx:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
{2)ВВести исходный массив из текстового файла;}
{3)Вывести исходный массив в текстовый файл;}
read(f,m);{читаем первое число - строки}
write(g,m,' ');{записываем в новый файл с пробелом }
read(f,n);{читаем второе число - столбцы}
writeln(g,n);{в новый файл и на новую строку}
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);{читаем собственно матрицу}
    write(g,a[i,j]:4);{записываем в новый файл построчно с форматированием}
   end;
  writeln(g,'');{новая строка}
 end;
close(f);
close(g);
{4)сформировать массив из нечетных столбцов массива;}
for i:=1 to m do
 begin
  k:=0;
  for j:=1 to n do
  if j mod 2<>0 then{если столбец нечетный}
   begin
    b[i,j div 2+1]:=a[i,j];{записываем его элементы в новую матрицу, выбрасывая четные}
    k:=k+1;{считаем}
   end;
 end;
{5)напечатать сформированный массив;}
writeln('Сформированный массив:');
for i:=1 to m do
 begin
  for j:=1 to k do
  write(b[i,j]:4);
  writeln;
 end;
{6)найти и напечатать max элемент среди отрицательных элементов сформированного массива и его индексы.}
mx:=-maxint;
imx:=0;
jmx:=0;
for i:=1 to m do
for j:=1 to k do
if (b[i,j]<0) and(b[i,j]>mx) then{если отрицательный и больше максимального}
 begin
  mx:=b[i,j];{запоминем его и его координаты}
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный из отрицательных b[',imx,',',jmx,']=',mx);
readln
end.