Поезд №22 – от Москвы до Перми. Поездка в одну сторону занимает около суток) Время отправления поезда №21 из Перми – 12.10. Время отправления поезда №22 из Владимира – 22.06. Время прибытия поезда №22 в Нижний Новгород – 1.22. Время стоянки поезда №22 в Нижнем Новгороде – 12 мин. Время отправления поезда №21 из Кирова – 19.56. Время стоянки поезда №21 в Кирове – 17 мин. Время стоянки поезда №21 во Владимире – 20 мин. Время отправления поезда №22 из Кирова – 8.04. Время прибытия поезда №21 в Нижний Новгород – 2.33. Время отправления поезда №22 из Москвы – 19.00. Время прибытия поезда №21 во Владимир – 6.00. Время прибытия поезда №21 в Киров – 19.39. Время стоянки поезда №21 в Нижнем Новгороде – 12 мин. Время отправления поезда №21 из Владимира – 6.20. Время отправления поезда №21 из Нижнего Новгорода – 2.45. Время прибытия поезда №22 во Владимир – 21.48. Время прибытия поезда №22 в Киров – 7.48. Время отправления поезда №22 из Нижнего Новгорода – 1.34. Время стоянки поезда №22 во Владимире – 18 мин. Время прибытия поезда №21 в Москву – 9.20. Время стоянки поезда №22 в Кирове – 16 мин. Время прибытия поезда №22 в Пермь – 16.01.
можно сделать таблицу в ворде молю

Var s,st: string;
    a: array[1..255] of integer;
    i: integer;    
begin
  write('строка: ');  readln(s);
  for i:=1 to 255 do a[i]:=0;
  for i:=1 to length(s) do inc(a[ord(s[i])]);
  st:='';
  for i:=1 to length(s) do
    if ((a[ord(s[i])]>=2) and
       (s[i] in ['а'..'я']))  then continue
    else st:=st+s[i];
  writeln('новая строка: ',st);
end.

строка: Это строка для проверки.
новая строка: Э са для пвеи.

Если нужно, чтобы не различались прописные и строчные буквы, то другой вариант программы:

var s: string;
    a: array[1..255] of integer;
    i,j: integer;    
begin
  write('строка: ');  readln(s);
  for i:=1 to 255 do a[i]:=0;
  for i:=1 to length(s) do
  if ord(s[i])>32 then
  begin
    inc(a[ord(s[i])]);
    if s[i] in ['а'..'я'] then inc(a[ord(UpperCase(s[i]))])
    else if s[i] in ['А'..'Я'] then inc(a[ord(LowerCase(s[i]))]);
  end;  
  j:=0;
  for i:=1 to length(s) do
  if (a[ord(s[i])]>=2) then continue
  else 
  begin
    inc(j);
    s[j]:=s[i];
  end;  
  delete(s,j+1,length(s)-j);
  writeln('новая строка: ',s);
end.

Выбрать требуемую толщину линий и кривых.Окно Палитра отображает текущий основной цвет и цвет фона. Чтобы рисовать выбранным основным цветом, протащите указатель. Чтобы рисовать выбранным цветом фона, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению. Чтобы изменить текущий основной цвет, щелкните любой из доступных цветов. Чтобы изменить цвет фона, щелкните правой кнопкой мыши любой из доступных цветов. Чтобы создать новый цвет, щелкните правой кнопкой мыши любой из цветов и нажмите кнопку Определить цвет. Инструмент Криваяпозволяет проводить сглаженную кривую линию. Выберите инструмент Кривая, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Когда линия проведена, щелкните область изображения, где требуется разместить изгиб, и протащите указатель для придания дуге нужного изгиба.Инструмент Линия позволяет проводить прямую линию. Выберите инструмент Линия, выберите толщину линии под панелью инструментов, выберите в палитре требуемый цвет и протащите указатель по изображению. Чтобы провести линию фонового цвета, щелкните правой кнопкой мыши и, удерживая ее, протащите указатель по изображению.