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

[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)and(Tekst[Pozicia - 1]= ' ')) 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.


помогите сделать пояснительный текст

[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
   else break;
  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.

[capta1n]

Не забудьте про отзыв, если понравилось Репутацию хочу поднять