нужно создать программу, которая осуществляет обработку символов и строк на языке Pascal

[КСЕНИЯ2]

Задание: Заменить первые 3 символа слов,имеющих выбранную длину, на символ '*'

[newerow1989]

s[1]:='*';
s[2]:='*';
s[3]:='*';

Так что ли?

[FPaul]

Наверное, нет.
Нужно перебирать все слова в строке, и если длина текущего слова равна Х (вводится пользователем), то в этом слове и заменять (учесть ситуацию с Х<3).

[min@y™]

создать программу, которая осуществляет обработку символов и строк на языке Pascal

сорри за оффтоп, но сабж сразу мне напомнил ЭТО!

[newerow1989]

const x=3;
var s:string;
    i,j,len,maxlen:integer;
begin
   s:='Variable z is declared but never used in Project1';
   Writeln(s);
   s:=' '+s;
   maxlen:=Length(s);
   i:=1;
   Repeat
      If s[i]=' ' then
      begin
         j:=i;//начнем с позиции Пробел
         Repeat
            j:=j+1;
         Until (j>maxlen) or (s[j]=' ');
         len:=j-i-1;//длина слова
         If len>=x then
            For j:=i+1 to i+x do
               s[j]:='*';
         i:=i+len;
      end;
      i:=i+1;
   Until i>=maxlen;
   Delete(s,1,1);
   Writeln(s);
   Readln;
end.

Сойдет?

[FPaul]

Там долго рассуждать, но выделение слов удобнее через while, нежели через repeat/until.
Плюс условие "Задание: Заменить первые 3 символа слов,имеющих выбранную длину, на символ '*'".
Итого, кореектнее так

program laba;

type
  {тип для набора ограничителей слов в строке}
  TCharSet = set of char;
const
  {Список всех ограничителей слов в строке}
  Delim_Set: TCharSet = [' ', '.', ',', '!', '?', '-', ':', ';',
    '(', ')', '[', ']', '{', '}'];

{Нахождение длины слова из строки Src.
 Поиск слова начинается с позиции StartPos.
 На выходе не только длина очередного слова, но и переменная StartPos
 указывает на следующий за словом символ.
 Если слово не найдено, то StartPos=Length(Src)+1.}
  function GetLengthNextWord(const Src: string; var StartPos: integer;
  const Delimiters: TCharSet): integer;
  var
    i: integer;
  begin
    i := StartPos;
    {i-текущая позиция в анализируемой строке}
    {ищем первую букву слова}
    while (i <= Length(Src)) do
      if (Src[i] in Delimiters) then
        Inc(i)
      else
        Break;
    StartPos := i;
    {StartPos указывает на первую букву в слове или на "следующий за последним символом в строке"=Length(Src)+1}
    {теперь просматриваем слово пока не закончится строка или
     не начнутся ограничители слов}
    while (i <= Length(Src)) do
      if not (Src[i] in Delimiters) then
        Inc(i)
      else
        Break;
    GetLengthNextWord := i - StartPos;
    {i - указывает на следующий за словом индекс (т.е. на очередной пробел)}
    StartPos := i;{для дальнейшего использования}
  end;

  procedure CorrectionStr(var s: string; n: integer);
  var
    StartPos: integer;
    I, Len: integer;
  begin
    {Учитываем возможность случая, когда n<3}
    if n < 3 then
      Len := n
    else
      Len := 3;
    StartPos := 1; {слово в строке s начинаем с 1-й позиции}
    while StartPos <= Length(s) do {пока не закончились слова в строке}
      if GetLengthNextWord(s, StartPos, Delim_Set) = n then
        for I := StartPos - n to StartPos - n + Len - 1 do
          s[I] := '*';
  end;

  procedure Test(s: string; n: integer);
  begin
    writeln('n=', n);
    writeln('Before:');
    writeln(s);
    CorrectionStr(s, n);
    writeln('After:');
    writeln(s);
  end;

var
  s: string;
begin
  s := 'Variable z is declared but never used in Project1';
  Test(s, 2);
  writeln('----------------------');
  Test(s, 8);
end.

Это не совсем решение задачи, но если надо, ТС самостоятельно переделает.