Работа со строками и текстовыми файлами

[Nikolai17]

Удалить из строки третье слово после первой запятой

находим первую запятую

наработочка

var s,s1:string;
begin
clrscr;
repeat
writeln('Vvedite stroku:');
readln(s);
until pos(',',s)>0; {проверяем ввод, чтоб была запятая}
s:=s+',';{добавляем запятую в конец строки}
while pos(',,',s)>0 do
delete(s, pos(',,',s),1);{удаляем лишние запятые, оставляем по одной}
while pos(',',s)>0 do {пока в строке есть запятые}
  begin
    writeln(copy(s,1,pos(',',s)-1));{выводим подстроки до запятой}
    delete(s,1,pos(',',s));{удаляем их вместе с запятой}
  end;
readln
end.

как наити второй пробел после запятой?

:confused:

[ArtInt]

Насколько я помню для таких задач удобнее использовать конечные автоматы.
Создать в каких состояних может находиться автомат и делать выбор. Но наверное также придется делать отдельные процедуры для удобства чтения кода.

[dr.Chas]

var s, slovo : string;
    i, j : integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  i:=pos(',', s)+2;  j:=0;
  while i<>length(s) do
  begin
    if s[i] in ['a'..'z','A'..'Z','1'..'9'] then slovo:=slovo+s[i]
    else begin
      inc(j);
      if j=3 then
      begin
        Delete(s, pos(slovo, s), length(slovo));
        break;
      end;
      slovo:='';
    end;
    inc(i);
  end;
end.

[Nikolai17]

бредятина...не пашет

всё я сделал тема закрыта

кому нужен код то

program er1;
uses crt;
 var
   s,s1:string;
   k,n:integer;
begin
  writeln('Enter s');
  readln(s);
s1:=s;
begin



delete(s,1,pos(',',s)+1);

delete(s,1,pos(' ',s));



delete(s,1,pos(' ',s));

n:=length(s);

writeln('Tretbe slovo ',s);
k:=pos(s,s1);

writeln('Pozicia pervogo simvola 3 slova := ',k);
delete(s1,k,n);
writeln(s1);
end;
readkey;
end.