program Spojení_odstavcù;

var
  iStartLine : integer;

begin
  if (IsBlockSelected) then begin
    iStartLine := GetSelStartLine;
    if (GetCaretLine <= iStartLine) then begin
      iStartLine := GetSelStartLine;
      ChangeSelRanges;
    end;
    UnselectBlock;
    while PrevPara and (GetCaretLine <> iStartLine) do begin
      BackspaceDelete;
      InsertChar(' ');
    end;   { while }
  end
  else begin
    CaretHome;
    while NextPara do begin BackspaceDelete; InsertChar(' '); 
end;
  end;
end.