Обработка символьных строк

var
x: string;
n, d: integer; //n - номер позиции, d - длина строки
a: char;
begin;
readln(x);
d:= length(x);
for n := 1 to d do begin;
a:=x[n];
if ord(a) > 191 then insert('-', x, n + 1);
d:= length(x);
end;
writeln(x);
end.

var
  x: string;
  n, d: integer; //n - номер позиции, d - длина строки
  a: char;
 
begin;
  readln(x);
  d := length(x);
  for n := 1 to d do
  begin
    a := x[n];
    // ё это особый символ
    if (a in 'а'..'я') or (a = 'ё') then insert('-', x, n + 1);
    d := length(x);
  end;
  writeln(x);
end.

begin
  var x := ReadString;
  // Границы цикла считываются при его запуске, ваше "d:=length(x);" в конце цикла не прокатит
  // Поэтому надо идти в обратную сторону
  for var i := x.Length downto 1 do
  begin
    var ch := x[i];
    if (ch in 'а'..'я') or (ch = 'ё') then
      Insert('-', x, i + 1);
  end;
  x.Println;
end.

## ReadString
.SelectMany(ch->
  (ch in 'а'..'я') or (ch = 'ё') ? |ch, '-'| : |ch|
).Println;

## ReadString
.Select(ch->(
  if (ch in 'а'..'я') or (ch = 'ё') then '-' else ' '
)).Println;

## var s:=ReadString;
Regex.Replace(Regex.Replace(s,'[а-яёА-ЯЁ]','—'), '[^—]', #32).Println;