Пожалуйста объясните программу.Вот условие:в заданной строке записаны 3 слова.Возможно ли переставляя и удаляя буквы первого слова добавляя буквы второго получить третье слово.Сама программа уже написана,мне нужно поэтапное объяснение к ней.
код прораммы:
uses crt;
var s,s1,s2,s3:string;
counter:byte;
begin
clrscr;
writeln('Введите 3 слова');
readln(s);
counter:=pos(' ',s);
if counter=0 then halt;
s1:=copy(s,1,counter);
s:=copy(s,counter+1,length(s));
counter:=pos(' ',s);
if counter=0 then halt;
s2:=copy(s,1,counter);
s3:=copy(s,counter+1,length(s));
for counter:=1 to length(s3) do
begin
s:=copy(s3,counter,1);
if pos(s,s1)=0 then
begin
if pos(s,s2)=0 then
begin
writeln('Нельзя');
halt;
end;
end;
end;
writeln('Можно');
end.
помогите пожалуйста,очень надо!!!