Блок-схема

Type Slowa=array[1..100] of string;
procedure InsertSort(var x:Slowa;n:integer);
var i, j:integer;
     buf:string;
begin
for i:=2 to N do
begin
buf:=x[i];
j:=i-1;
while (j>=1) and (Length(x[j])<Length(buf)) do
 begin
 x[j+1]:=x[j];
 j:=j-1;
 end;
x[j+1]:=buf;
 end;
end;
 
procedure GetWord(s:string;var Ws:Slowa;var n:integer);
var tmp:string;
begin
  n:=1;
while (s<>'') do
begin
 if pos(' ',s)>0 then
  begin
   Ws[n]:=Copy(s,1,pos(' ',s)-1);
   Delete(s,1,pos(' ',s));
  end
   else
   begin
    Ws[n]:=s;
    s:='';
   end;
inc(n);
end;
InsertSort(ws,n-1);
end;
var s1,s2,res:string;
    w1,w2:Slowa;
    nc1,nc2,i,j:integer;
begin
write('Введите первую строку: '); readln(s1);
write('Введите вторую строку: '); readln(s2);
 
res:='';
GetWord(s1,w1,nc1);
GetWord(s2,w2,nc2);
i:=1;
j:=1;
while (i<nc1)or(j<nc2) do
begin
 
 if (i<nc1) then
 begin
    if res<>'' then res:=res+' ';
    res:=res+w1[i];
 end;
 if j<nc2 then
 begin
    if res<>'' then res:=res+' ';
    res:=res+w2[j];
 end;
  inc(i);inc(j);
end;
writeln('Полученная строка: ',res);
readln;
end.