Pascal. Множества.

[Corpinccom]

[AD]
(* Programma vivodit na pechat' slova v kotorih
pervaya bykva slova vstrechaetsya v nem escho raz *)

ОБъясните пожалуйста как работает 1 и 4 цикл If.

Program letter;
uses crt;
var i:integer;
s,st:string;
D:set of char;
b:boolean;
begin
clrscr;
writeln('Vvedite posledovatelnost slov cherez zapyatyu');
readln(s);
while length(s) <> 0 do begin
b:=pos(',',s) <> 0; 
if b then st:=copy(s,1,pos(',',s)-1) 
else st:=copy(s,1,length(s));
D:=[];
if length(st) <> 1 then begin
include(D,st[1]); 
for i:=2 to length(st) do if st[i] in D then begin
write(st,' ');
break
end;
end;
if b then delete(s,1,pos(',',s)) 
else delete(s,1,length(s)) 
end;
readln
end.

[Sazary]

1-й:

b:=pos(',',s) <> 0; 
if b then st:=copy(s,1,pos(',',s)-1) 
else st:=copy(s,1,length(s));

Ищем в строке запятую и записываем результат в b.
Если запятая найдена, то копируем в st часть подстроки от начала до запятой (то есть одно слово). Иначе копируем всю строку (последнее слово).

4-й:

if b then delete(s,1,pos(',',s)) 
else delete(s,1,length(s))

После того, как сделали все необходимое со словом, смотрим на b. Если была найдена запятая (то есть слово не последнее), то удаляем из строки обработанное слово. Иначе удаляем последнее слово (то есть все, что осталось).

ps: Corpinccom, форматируйте код. В таком виде его трудно читать.

[Corpinccom]

Благодарю!

[Lorem]

Sazary, Огромное спасибо Вам! очень помогли разобраться)