поогите исправить программу со стрингами

[Ananim-Pbl6ak]

Program Laba4;
{Їа®Ја*¬¬* ђ®¬**®ў* Ђ*в®**}
var
Tekst,TekstN:string;
Pozicia,Zad,Per:integer;
Symbol:char;
begin
write('введите ваше предложение');
readln(Tekst);
write('введите букву слова начинающиеся с которой будем удалять ');
readln(symbol);
Tekst:=concat(' ',Tekst,' ');
TekstN:=Tekst;
Pozicia:=pos(symbol,tekst);
While Pozicia<>0 do
begin
zad:=Pozicia;
while tekst[zad] <>' ' do
dec(zad);
per:=Pozicia;
While Tekst[per]<>' 'do
inc(per);
delete(tekst,zad,per-zad);
pozicia:=pos(symbol,tekst);
end;
writeln('предложение',TekstN ,' без слов начинающихся с ',symbol,' - ',Tekst);
Readln;
End.


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

[Gorychev]

Должно помочь:

While ((Pozicia<>0)and(Tekst[Pozicia - 1]= ' ')) do

[Ananim-Pbl6ak]

большое спасибо если вам не сложно можете к проге пояснительный текст сделать?

[Gorychev]

Если сами прогу писали, то вам и так должно быть все понятно. Если нет, почитайте о строковых функциях в паскале. Их всего-то у вас две pos и delete. Pos возвращает позицию первого вхождения подстроки(в нашем случае одного символа) в строке, delete удаляет часть строки, начиная с позиции такой-то по такую-то…

А эта часть кода

 (Tekst[Pozicia - 1]= ' ')

проверяет стоит искомый символ в начале слова или нет

[capta1n]

Program Laba4;
var
Tekst,TekstN:string;
pozicia:byte;
Symbol:char;
begin
write('Введите предложение: ');
readln(Tekst);
write('Введите букву слова начинающиеся с которой будем удалять: ');
readln(symbol);
TekstN:='';
while tekst<>'' do
begin
  pozicia:=pos(' ',tekst);
  if pozicia=0 then
  begin
   if (tekst[1]<>symbol) then tekstN:=tekstN+tekst;
  break
  end;
  if (pozicia<>0) and (tekst[1]<>symbol) then
   tekstN:=tekstN+copy(tekst,1,pozicia-1)+', ';
  delete (tekst,1,pozicia)
end;
if tekstN[length(tekstN)-2]=',' then 
 delete (tekstN,length(tekstN)-2,2);
writeln (TekstN);
readln
end.

[Tkirill]

uses crt;
var
s,st,str:string;
i:integer;
c:char;
begin
clrscr;
write('Stroka -> ');
readln(s);
writeln;
write(' Bukva -> ');
readln(c);
i:=1;
s:=s+' ';
st:='';
str:='';
repeat
if s[i]<>' ' then st:=st+s[i]
else begin if st[1]<>c then str:=str+st+' '; st:=''; end;
i:=i+1;
until i>length(s);
writeln;
writeln;
writeln(str);
readln;
end.

[capta1n]

!хорошо

[Tkirill]

uses crt;
label
metka;
var
s,st:string;
i,j:integer;
m:char;
begin
clrscr;
write(' stroka -> ');
readln(s);
writeln;
write(' bykva -> ');
readln(m);
writeln;
i:=1;
s:=s+' ';
st:='';
repeat
if s[i]<>' ' then st:=st+s[i]
else begin if st[1]=m then begin delete(s,i-length(st),length(st)+1); i:=1; st:=''; goto metka; end; st:=''; end;
i:=i+1;
metka:
until length(s)<i;
writeln(s);
readln;
end.